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B Avertissement 


Le livre que vous tenez entre les mains n’est pas un manuel pour commencer 
la programmation en assembleur, mais pour la poursuivre et l'améliorer. Il cher- 
chera à vous donner les meilleures chances de bien programmer en assembleur, 
avec efficacité et rigueur. 

C'est aussi un mémorandum des possibilités des trois Amstrad CPC, 464, 664 
et 6128, sans faire de préférence : vous en serez, j'espère, satisfait quel que soit 
le type de votre appareil. 

Vous y trouverez en effet de nombreux détails sur les Amstrad eux-mêmes, et 
tout ce qui permet de rendre cette programmation plus efficace, notamment la 
liste intégrale (publiée pour la première fois à ma connaissance) de toutes les rou- 
tines des systèmes d'exploitation pour ces trois machines (Chapitre 8), avec tous 
les détails nécessaires. Cette liste, les tables des annexes, etc., ont été conçues 
comme si elles n'étaient destinées qu’à moi-même. Je souhaite que vos exigences 
soient par elles comblées comme les miennes. 

D'une façon générale, j'espère que cet ouvrage vous familiarisera assez avec 
l’assembleur pour que vous puissiez programmer avec lui non pas tout de même 
si facilement qu'en BASIC, mais du moins beaucoup plus aisément qu'on ne le 
croit généralement possible, et que vous contribuerez ainsi à réhabiliter un lan- 
gage trop souvent oublié, quoiqu'essentiel : celui de la machine. 


1. LA PROGRAMMATION EN ASSEMBLEUR 


Nous ne nous étendrons guère ici sur les avantages (nombreux) de 
la programmation en assembleur et sur ses inconvénients, qui sont 
généralement bien connus des personnes qui s'intéressent à l’infor- 
matique, même si elles n’ont jamais programmé en assembleur. Rap- 
pelons simplement que l’assembleur est nettement plus rapide que 
le BASIC (en moyenne dix fois plus), et même que les autres langa- 
ges dits évolués (trois ou quatre fois plus rapide que le PASCAL par 
exemple), qu'il utilise moins de mémoire que ces derniers ; tout cela 
résulte d’une évidence : l’assembleur est, à la conversion des mné- 
moniques aux codes près, le langage même de la machine. En 
contrepartie, l’assembleur est plus difficile à maîtriser pour un être 
humain comme vous et moi que les langages construits pour leur sim- 
plicité comme le BASIC. 


Cela étant, la maîtrise de l’assembleur est, comme bien des cho- 
ses, une question d'habitude. Lorsque le pli est pris, et à condition, 
par conséquent, de ne pas se décourager trop vite, il devient très sim- 
ple de programmer en assembleur, surtout pour des programmes de 
faible longueur (quelques centaines de codes). Le débogage (suppres- 
sion des erreurs) paraît plus aisé, les erreurs sont d’ailleurs moins fré- 
quentes : nombre d'entre elles ne résistent pas à quelques minutes 
de réflexion, et les autres sont détectables souvent par quelques tests 
très simples. 


Mais il faut émettre une réserve importante à cet idyllique tableau. 
La programmation en assembleur est en effet relativement simple, 
une fois que l’on a à peu près compris les instructions du Z80 et leur 
utilisation. 


Malheureusement, de là à programmer correctement en assem- 
bleur, en limitant les erreurs, en évitant les longueurs, les pertes de 
temps, les contradictions, il y a du chemin ! 

C'est ce chemin que le présent ouvrage prétend vous faire suivre. 
Il souhaite parvenir à vous montrer comment tirer profit de toutes 
les instructions du Z80 (Chapitre 2), de toutes les routines du système 
d'exploitation pour les trois CPC (Chapitre 8), et parvenir à une bonne 
optimisation de vos programmes (Chapitre 5). Cela nécessite évidem- 
ment aussi une bonne connaissance des possibilités des Amstrad (Cha- 
pitres 3 et 4). Ces chapitres sont complétés par trois annexes : l’An- 
nexe À vous donnera des renseignements intéressants sur les instruc- 
tions du Z80 ; l'Annexe B détaillera pour vous les rotations et déca- 
lages sur huit bits ; l'Annexe C vous donnera quelques adresses uti- 
les de vos Amstrad. Une bibliographie d'ouvrages complémentaires 
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est donnée, avec quelques commentaires sur chacun, à la fin de ce 
livre. 

Pour le moment, je vous propose de voir comment vous pouvez 
programmer en assembleur dans les meilleures conditions. 


Æ NOTATION BINAIRE, HEXADÉCIMALE ET AUTRES RAPPELS 


INTÉRÊT DES NOTATIONS BINAIRE ET HEXADÉCIMALE 


S'il est une chose fondamentale pour pouvoir vraiment program- 
mer en assembleur, c’est de maîtriser et d’utiliser les notations binaire 
et hexadécimale des nombres. 

Cela ne signifie pas que vous devez être capable de convertir ins- 
tantanément 9ABFH en décimal (cela n’a aucun intérêt, d’ailleurs), 
ni même 100101B. Par contre, vous devez pouvoir voir que 9ABFH 
est plus grand que 93FEH mais plus petit que 9B44H, et aussi que 
9ABFH +3 donne 9AC2H, et de même pour des nombres binaires 
(sauf pour les additions, peu intéressantes en binaire) ; pour revoir 
tout cela, regardez le paragraphe suivant. 

Pourquoi est-ce si important ? Pas du tout pour l'amour de l’art. 
Mais vous devez comprendre qu'un ordinateur est un objet fonda- 
mentalement binaire : il compte tout en binaire. Ses registres ont une 
longueur comptée en bits (un bit est un chiffre binaire, qui vaut donc 
0 ou 1). Ses adresses se mesurent en bits, etc. 

Il en résulte que, pour savoir si le troisième bit de l’accumulateur 
est à zéro ou non, savoir que cet accumulateur contient la valeur 
141 ne vous avancera guère. Par contre, savoir qu'il contient 8DH, 
soit 10001101B répondra immédiatement à votre question. 

Dans le même ordre d'idées, les adresses internes des Amstrad sont 
des nombres ronds en hexadécimal. Ainsi la RAM écran, par exem- 
ple, va de CO00H à FFFFH. Dès lors, si vous écrivez vos adresses 
49682, comment savoir s’il s’agit d’une adresse de l'écran ? Alors qu’il 
est évident que C212H en est une. 

Bien sûr, vous pourriez convertir toutes les adresses internes impor- 
tantes en décimal. Mais vous ne me ferez pas croire que 4000H n'est 
pas plus simple à retenir que 16384, ni A700H que 42752! 

Le lecteur aura d'ores et déjà remarqué les notations qui seront 
celles de tout ce livre : la lettre H indique un nombre en hexadéci- 


AT = 


mal, B en binaire et D (ou rien) un nombre en décimal ; ces lettres 
figurent à la fin des nombres. 


BINAIRE ET HEXADÉCIMAL. CONVERSION ET COMPARAISON 


Lorsque l’on compte, la base représente le nombre de chiffres dif- 
férents utilisés. Ainsi, nous avons l'habitude depuis l'enfance de comp- 
ter en base 10, avec les dix chiffres O, 1, …, 9. Cet état de fait pré- 
cède de quelques millénaires les ordinateurs, nous n’y reviendrons 
pas ; mais il résulte de la présence de dix doigts sur nos mains. 

L'ordinateur, lui, utilise le courant électrique, et mesure la présence 
ou l’absence de tension. Il ne mesure donc que deux états différents, 
il compte en binaire. Il n’y a plus que deux chiffres : O et 1. 

Les règles donnant les valeurs des nombres dans une base donnée 
sont toujours les mêmes. Si b est la base, b se note (en base b) 10 ; 
bxb (b°), 100 ; b*, 1000 ; etc. 1 se note toujours 1 et 0, 0. Dès lors, 
la valeur d’un nombre noté en base b : ...xyz, est égale à la somme 
des produits des chiffres z, y, x, etc. (donc en partant du dernier chiffre 
des unités), par les puissances successives de b (y compris b°=1) 
multipliées par ces chiffres, soit zx1+y*xb+xxb?+ … 

Ainsi 


1986D=6+8*x10+9*x100+1x*1000, 
et 
101B=1+0+10B+1*1008B, 


soit 5 en décimal car 10B=2 (base) et 100B=4 (2*2). 

Pour convertir un nombre décimal en binaire, il faut diviser par 
2 autant de fois que nécessaire pour avoir un quotient nul, et noter 
tous les restes successifs en les écrivant de droite à gauche. Ainsi, 
13 vaut 1101B car 13/2=6, reste 1 ; 6/2=3, reste O ; 3/2=1, reste 1 ; 
1/2=0 reste 1, et arrêt car le quotient est nul. 

On ne peut pas dire que ce soit très simple, aussi évitera-t-on la 
notation décimale en général. 

Le problème, c’est que plus la base est petite, plus le nombre de 
chiffres pour écrire une valeur donnée est grand. Ainsi, 1986 prend 
quatre chiffres en décimal, mais onze en binaire (111110000108B). 
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On comprend alors qu’il vaille mieux trouver une notation moins 
lourde, et néanmoins permettant des échanges faciles avec le binaire : 
c'est la notation hexadécimale, en base 16. 

Dans cette base, il y a donc seize chiffres, soit six de plus qu’en 
décimal. Ces six chiffres, qui suivent 0, 1, …., 9, sont notés par les 
six premières lettres majuscules, soit À (pour 10D), B (pour 11D), €, 
D, E, F (pour 15D). 

L'intérêt de cette notation est double (outre le fait déjà noté qu’elle 
utilise peu de chiffres pour une valeur donnée, moins encore que 
le décimal). D'une part, la conversion binaire-hexadécimal est très 
simple. Pour le comprendre, notons les valeurs binaires de tous les 
chiffres hexadécimaux : 


OH:  0000B 
1H: 0001B 
2H: 0010B 
3H: 0011B 
4H:  0100B 
5H:  0101B 
6H: 0110B 
7H:  0111B 
8H: 1000B 
9H:  1001B 
AH: 1010B 
BH: 1011B 
CH: 1100B 
DH: 1101B 
EH: 1110B 
FH: 1111B 


Il'en résulte cette règle simple : à un quartet binaire (4 chiffres binai- 
res) correspond un et un seul chiffre hexadécimal. La règle de trans- 
formation est dès lors immédiate. Pour passer du binaire à l’hexadé- 
cimal, divisez votre nombre en quartets, en partant de la fin et en 
ajoutant des zéros devant si nécessaire. Puis transformez chaque quar- 
tet en un chiffre hexadécimal en vous aidant du tableau ci-dessus. 
Ainsi 1986, qui s'écrit 111110000108, s'écrit encore : 0111 1100 0010B 
(on a ajouté un zéro devant), soit : 7C2H. CQFD. Inversement, pour 
passer d’un nombre hexadécimal au binaire, il faut convertir chaque 
chiffre en un quartet. Ainsi 2FAH s'écrit 0110 1111 1010B, soit encore 
1011111010B. Tout cela est très simple. 
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Le second avantage de cette notation hexadécimale est une con- 
séquence de la structure des ordinateurs, qui l’a fait préférer à la nota- 
tion octale : les registres des ordinateurs et leurs cases mémoire sont 
groupés par 8 ou 16 bits. Or 8 bits, cela fait exactement 2 quartets, 
donc deux chiffres en hexadécimal, et 16 bits, quatre chiffres. Dès 
lors, les adresses du Z80, qui s’écrivent sur 16 bits, sont toutes les 
combinaisons possibles de quatre chiffres hexadécimaux, donc de 
0000H à FFFFH. De même les valeurs pouvant être prises par un regis- 
tre 8 bits sont toutes les paires de chiffres hexadécimaux, de 00H à 
FFH (255). 


COMPARAISON ENTRE NOMBRES, SIGNES 


Pour comparer deux nombres écrits dans une même base, on appli- 
que la même règle que pour les nombres décimaux. Tout d’abord 
on compare le nombre de chiffres de chacun (non compris les zéros 
en tête éventuels). Celui qui en a le plus est le plus grand. Ainsi 
2FDOH > A45H. 

S'il y a autant de chiffres, on compare les deux premiers. Celui qui 
a le plus grand premier chiffre est le plus grand. Ainsi A34FH < C107H 
car À < C. Si les premiers chiffres sont égaux, on compare les seconds, 
etc. Si tous les chiffres sont égaux, les deux nombres le sont aussi ! 

Pour les nombres binaires, la comparaison entre nombres de chif- 
fres est malaisée, du fait du grand nombre de chiffres qu’il y a sou- 
vent. De ce fait, on standardise les nombres binaires par octets, en 
rajoutant éventuellement des zéros devant. Ainsi 10110018 sera plutôt 
écrit 01011001B (huit bits). On applique alors la comparaison des 
chiffres. 

On aura besoin, pour les nombres binaires, de numéroter les bits. 
On le fait en partant de la droite (le bit O est donc le dernier), de O 
à 7 pour les nombres à 8 bits, de O à 15 pour ceux à 16 bits. 

Il'est important de noter ici la façon dont sont codés les nombres 
négatifs. On déclare pour cela que le bit le plus fort (bit 7 pour les 
8 bits, bit 15 pour les 16 bits) est le bit de signe : il vaut O pour les 
nombres positifs, et 1 pour les négatifs. Pour ces derniers, on en obtient 
la valeur absolue en complémentant tous les bits (changer les O en 
1 et inversement), puis en ajoutant 1. Ainsi, FFH=11111111B est néga- 
tif. Sa valeur absolue est obtenue en complémentant tous les bits (cela 
donne 00000000B), puis en ajoutant 1, ce qui donne 00000001B, soit 
1. Donc FFH= -1. 
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On notera une ambiguïté, car FFH représente aussi la valeur 255. 
Suivant les cas, on dira que l’on aura affaire à des nombres signés 
(pour les opérations arithmétiques, ou pour tracer des traits), qui vont 
de —128 (80H) à +127 (7FH) pour les 8 bits et de —- 32768 (8000H) 
à 32767 (7FFFH) pour les 16 bits, ou au contraire non signés (adres- 
ses notamment), qui vont de O (00H) à 255 (FFH) pour les 8 bits et 
de O (0000H) à 65535 (FFFFH) pour les 16 bits. 

Ces problèmes de signes sont parfois source d'erreurs, il convient 
d'y prêter attention. 

Il est important de vous familiariser, si ce n’est pas encore le cas, 
avec ces notions de bases 2 et 16, afin de pouvoir utiliser et com- 
prendre ces notations, qui sont d’un usage constant dans ce livre ; 
vous pouvez, pour vous aider, refaire quelques-unes des conversions 
données en exemple ci-dessus. 


INVERSION SEIZE BITS DU Z80 


Si vous ne le savez pas encore, notez ici une chose essentielle : 
lorsque le Z80 stocke en mémoire des adresses ou toute autre valeur 
sur 16 bits, il inverse les deux octets. Donc, si vous placez par exem- 
ple la valeur 3A5FH à l'adresse 1000H, vous trouverez en 1000H l’oc- 
tet inférieur, soit 5FH, et en 1001H l’octet supérieur, soit 3AH. 

De même, si vous souhaitez récupérer dans HL un nombre pointé 
par IX, il faudra faire 


LD H, (IX+1) / LD L, (IX+0) 


et non le contraire. 

Cette inversion est une source fréquente d'erreurs, même quand 
on en a l'habitude. Pensez donc à toujours vérifier ce point en cas 
de problème. 


M LES ASSEMBLEURS DU COMMERCE 


Il n’est pas en théorie absolument nécessaire d'acheter un Assem- 
bleur (on appelle ainsi, et l’on met une majuscule pour distinguer 
du ‘’langage’’ assembleur, un programme qui se charge de convertir 
les mnémoniques en codes) pour pouvoir programmer en assembleur, 


46 


et plus particulièrement pour mettre en pratique les notions et les 
programmes de ce livre. Vous pouvez en effet rentrer directement 
les codes (un chargeur avec des explications est donné en fin de cha- 
pitre), ou utiliser les Assembleurs du 8080 fournis avec CP/M. 

Toutefois cela n’est pas souhaitable à mon sens. D'abord, la pro- 
grammation sans un Assembleur est rendue plus complexe et les ris- 
ques d'erreur sont gros. Quant à utiliser les Assembleurs de 8080, 
alors que le microprocesseur des Amstrad est un Z80 largement supé- 
rieur, revient, me semble-t-il, à n'utiliser que la moitié des possibili- 
tés de votre machine, ce qui ne me paraît pas être vraiment une pro- 
grammation efficace. 

Bien qu’il vous soit possible d'agir autrement, nous supposerons 
que vous avez fait l'acquisition d’un des deux Assembleurs du com- 
merce prévus pour Amstrad (pour les trois versions). Ges deux Assem- 
bleurs portent les noms de ZEN et DAMS. Afin de faire jouer la con- 
currence, je vais vous en donner à présent les principaux avantages 
et inconvénients. 


L'ASSEMBLEUR ZEN 


Cet Assembleur est commercialisé par la société anglaise Kuma 
Computers Limited sous une version cassette seulement à ma con- 
naissance, et pour une somme de 250 F. 

Le fait que ZEN n'existe qu’en version cassette n’est pas très impor- 
tant, car il est très facile, après l’avoir placé une fois en mémoire avec 
un magnétophone, de le sauvegarder à nouveau sur disquette par 
SAVE ‘’ZEN’’,B, &4000, &1940. || sera utile de faire un petit chargeur 
BASIC qui placera le haut de mémoire en &3FFF (3FFFH), chargera 
le fichier binaire, y passera, voire verrouillera les majuscules, et pro- 
grammera l’une des touches sur CALL &4000 pour pouvoir y revenir 
facilement si vous le souhaitez. 

Après cette transformation, ZEN, qui utilise les vecteurs système 
(faites-en autant !) ne fera aucune difficulté pour tourner sur n’im- 
porte quel Amstrad, et en particulier pour sauvegarder et lire des pro- 
grammes sur disquette. 

L'un des principaux avantages de ZEN est en effet sa souplesse. 
Cela est heureux, car on peut ainsi compenser certains de ses défauts. 

Le plus important se trouve au niveau de l’édition des lignes. Le 
concepteur a jugé utile de faire son propre éditeur. Celui-ci est si som- 
maire que pour changer le premier caractère d’une ligne, par exem- 
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ple, vous devez effacer la ligne tout entière ! Le programmeur n’a 
pas voulu utiliser l’éditeur BASIC, et c’est visiblement un tort. Ce pro- 
blème est facilement réparable : il vous suffit de taper le petit pro- 
gramme assembleur ci-joint, de l’assembler et de sauvegarder la ver- 
sion de ZEN ainsi obtenue. Les éditions de lignes se feront alors avec 
l'éditeur BASIC. Une place suffisante n'ayant pas été prévue, vous 
prendrez garde que vos lignes ne dépassent pas 40 caractères, sinon 
des artefacts pourraient se produire. 





1 ==========SS=Z================= 

2 5 == MODIFICATIONS DE ZEN == 

3 ; (Utilisation de l’editeur BASIC) 

4 ====2====2=Z2Z====I================= 

5 

6 

7 ORG 4319H 

8 LOAD 431SH 

9 

19 EDIT: EQU GBD5EH ; 464: BD3AH, 664: BD5BH 
11 

12 ; CHANGEMENT DE LA ROUTINE ‘“N” 

13 

14 4319 09 NOP 

15 4311 2 NOP 

16 4312 37 SCF 

17 4313 CDB446 CALL EDITER 

18 

19 
29 ; CHANGEMENT DES ENTREES DE LIGNES 
21 
22 ORG  46B3H 
23 LOAD 46B3H 
24 
25 46B3 B7 OR A ; CARRY A ZERO 
26 46B4 215441 EDITER: LD  HL,4154H ; ENTREES DE PHRASES 
27 46B7 D19000 LD BC,@ 
28 46BA E5 PUSH HL 
29 46BB 3907 JR NC, SUITE 
39 46BD 7E BCLE: LD A,(HL) ; CHERCHER CODE CR 
31 48BE 23 INC HL 
32 46BF FEGD CP 13 ; CODE CR? 
33 46C1 29FA JR  NZ,BCLE ; NON, POURSUIVRE 
34 46C3 2B DEC HL ; SE PLACER SUR CODE CR 
35 46C4 3609 SUITE: LD (HL),@ ; METTRE MARQUE FIN 
36 46C6 E1 POP HL 
37 46C7 CDS5EBD CALL EDIT ; EDITER LA PHRASE 
38 46CA 7E CHERCHE: LD A,(HL) ; CHERCHER @ FINAL 
39 48CB @C INC C ; LONGUEUR DANS C 
49 46CC 23 INC HL 

41 46CD B7 OR A 

42 46CE 2GFA JR NZ, CHERCHE 

43 46D9 2B DEC HL 
44 46D1 3A5441 LD A,(4154H) ; PREMIER CARAC. (ORDRE) 
45 46D4 36GD LD (HL),13 ; METTRE UN CR SUR LE @ 
46 46D6 C9 RET 
47 
48 
49 END 


Mis à part ce détail, ZEN est un Assembleur tout à fait honorable. 
Voici ses principales caractéristiques. 
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ZEN se place en mémoire, comme DAMS, à l'adresse 4000H. I 
occupe, avec la table des symboles qui le suit, la place jusqu’à 6000H 
(8 K), où se trouve le fichier texte. Dans la pratique, on ne pourra 
donc pas assembler de programme dans la zone 4000H-6800H envi- 
ron. Cependant la directive ORG permet d’assembler un programme 


pour une adresse quelconque, à condition de le placer ailleurs au 
début. 


L'assembleur en lui-même est bien conçu, assez rapide. L'assem- 
blage se fait en deux passes. Il n’est pas possible de déplacer la table 
des symboles, ni de charger au cours d’un assemblage des morceaux 
de fichier, ce qui limite la longueur du fichier texte à la mémoire dis- 
ponible (environ 5 K), donc à des programmes moyens. On peut 
regretter qu'il soit obligatoire de mettre une directive LOAD pour que 
le programme soit placé en mémoire. 


Le fichier texte a l'avantage d’avoir des lignes numérotées. Mais 
l'absence de mode moniteur rend le déplacement dans ce fichier un 
peu plus difficile que sous DAMS. Les labels peuvent accepter n’im- 
porte quel caractère, mais ils doivent être suivis du caractère (:), et 
ne différencient pas majuscules et minuscules. La notation des nom- 
bres hexadécimaux est un peu lourde : outre le H final, il faut faire 
précéder ceux qui commencent par une lettre, comme B900H, par 
un zéro (ce qui donne 0B900H). 


Un avantage important de cet Assembleur : il est possible de faire 
un assemblage à l’écran ou sur l'imprimante, avec à la fois les adres- 
ses, les codes et les lignes ; c’est la raison pour laquelle il a été choisi 
dans ce livre pour lister les programmes. 


Les ordres, qui recouvrent de nombreuses possibilités, ne prennent 
qu’une seule lettre, suivie éventuellement d’un paramètre. II n’est 
pas possible de taper plusieurs ordres à la fois comme sous CP/M. 
Parmi les possibilités offertes que ne possède pas DAMS, on retien- 
dra des modifications très aisées de la mémoire, et la possibilité d’un 
catalogue de la disquette ou de la cassette comme en BASIC. 

ZEN recouvre aussi un désassembleur, comparable à celui de 
DAMS, et assez bien conçu. On peut ne désassembler que huit lignes 
à la fois (exploration de la mémoire), ou bien toute une partie de la 
mémoire. 


Le manuel est succinct, mais suffisant. 
En résumé, avec la correction donnée par le programme ci-joint, 
ZEN est un bon Assembleur relativement peu coûteux mais sans pré- 
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tention, dont je fus surpris de constater qu’il avait parfois d’éviden- 
tes supériorités sur DAMS. 


L'ASSEMBLEUR DAMS 


DAMS (Désassembleur, Assembleur, Moniteur Symboliques) est 
édité par la société française Micro-application. || est en vente sous 
trois versions différentes pour les trois CPC, à des prix semblables 
(395 F sur 6128). Néanmoins les possibilités sont les mêmes. 

DAMS, contrairement à ZEN, qui est globalement moyen, a beau- 
coup de qualités, malheureusement compensées par un certain nom- 
bre de défauts parfois fort gênants. 

Tout d’abord, je tiens à exprimer ma surprise et mon indignation 
sur un point précis. La publicité au dos de la boîte, tout comme le 
manuel, portent en toutes lettres que DAMS est entièrement relogea- 
ble ; le chargeur BASIC inclus est même prévu de telle sorte que vous 
puissiez lui commander de charger DAMS à une adresse nn quel- 
conque. Or c'est totalement faux, car si vous le chargez, ne serait-ce 
qu’en 4001H au lieu de 4000H, le logiciel ne tournera pas. En d’au- 
tres termes, DAMS n'est absolument pas relogeable, pas plus que ZEN, 
et doit obligatoirement être chargé à l’adresse 4000H (comme ZEN) ; 
d’ailleurs il est presque impossible de faire un programme relogea- 
ble avec un Z80 en l'absence d'instruction d'appel relatif. 

Ce point réglé, examinons le reste. 

DAMS se présente sous la forme de trois parties différentes, que 
nous allons examiner tour à tour. 

A l'initialisation, DAMS se place en mode 2 et passe au mode moni- 
teur. Dans ce mode, vous pouvez utiliser toutes sortes d'instructions. 
L'une d’entre elles est l'assemblage, sur lequel nous reviendrons. Les 
autres sont à peu près les mêmes que sous ZEN, avec des instruc- 
tions du même type (sauf les réserves faites, sur lesquelles nous revien- 
drons aussi). Une possibilité supplémentaire assez intéressante est 
offerte : la commutation des ROM supérieure et inférieure. 

L'instruction Llabel vous permet de passer au mode éditeur, à la 
ligne possédant le label donné comme paramètre (à la ligne courante 
s'il n’y en a pas). L'éditeur est un éditeur plein écran. Le déplace- 
ment entre les lignes est de ce fait plus aisé qu'avec ZEN. Pour l’édi- 
tion des lignes elles-mêmes, là encore le concepteur a jugé utile de 
faire son propre éditeur de lignes. Celui-ci est moins mauvais que 
celui de ZEN, mais bien moins bon que celui du BASIC ; sur ce point, 
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DAMS est donc inférieur à la version corrigée de ZEN par le pro- 
gramme donné au paragraphe précédent. 

La syntaxe des lignes est proche de celle de ZEN. La différence se 
trouve au niveau des labels : ils ne sont pas suivis de (:), et même 
n’acceptent aucun caractère non alphanumérique ; ils distinguent par 
contre majuscules et minuscules (mais cela ne sert à rien). Les lignes 
sans label doivent être entrées précédées d’un espace. Précisons un 
bon point ici : les codes opération (première partie des instructions) 
sont vérifiés et codés ; le fichier texte est donc un peu moins long 
que sous ZEN, mais les deux types sont du coup incompatibles. 

Passons directement à la très grande qualité de ce logiciel : son 
mode trace. Celui-ci est accessible par la commande T. Grâce à cela, 
vous pouvez exécuter pas à pas toute une partie de votre programme, 
avec à chaque instant sous les yeux les valeurs des registres. Pour 
aller un peu plus vite, dans le cas de routines système par exemple, 
vous pouvez utiliser l'instruction R (exécuter au ralenti). Dans les deux 
cas, toutes les instructions sont vérifiées pour éviter tout plantage, 
et vous pouvez à chaque instant vous arrêter par l'instruction Q, afin 
par exemple de changer la valeur des registres avec l'instruction (.). 
Tout cela est fort bien fait. Ce qui est absolument remarquable, c'est 
que tous les paramètres du programme en cours sont conservés et 
actualisés, même la position du curseur, les couleurs, etc. (seul oubli : 
les fenêtres). Cela va même jusqu’à l'excès, car si votre programme 
ne tourne pas en mode 2, vous verrez apparaître à chaque instruc- 
tion graphique des moirures dues au changement de mode sans effa- 
cement de l'écran, que seule la touche Q peut arrêter. 

Cette commande trace est indiscutablement un outil très puissant 
pour la vérification des programmes. 

Malheureusement, on a parfois l’impression qu'on lui a sacrifié cer- 
tains points. Pas de catalogue de la disquette sans retour au BASIC, 
des problèmes à la sortie vers l'imprimante (surtout avec la DMP-1), 
des modifications de la mémoire difficiles (uniquement par un ou deux 
octets), etc. 

Le concepteur a parfois péché par excès. Ainsi, il a trouvé absolu- 
ment nécessaire de désactiver toutes les touches du pavé numéri- 
que, ce qui ne facilite évidemment pas la rentrée des nombres. Les 
nombres hexadécimaux sont notés précédés d’un caractère # (pour- 
quoi pas la même notation que le BASIC, si l’on ne veut pas du H 
final ?). Les lignes ne sont pas numérotées. Donc pour accéder à un 
endroit précis du texte, il faut qu’il s’y trouve un label. Soit. Mais de 
plus, pour passer au label DEBUT, par exemple, il vous est possible 
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de taper LDEB au lieu de LDEBUT, ou encore LD (à condition qu'il 
soit le premier label commençant par D) ; il en résulte un défaut que 
rien ne corrige : vous ne pourrez pas accéder au label ENTRE par 
exemple, s’il est précédé dans le programme par un label ENTREE. 
La commande LENTRE vous placera sur ENTREE. Et comme le dépla- 
cement du curseur est assez long... 

Au sujet de l’assembleur, il est possible de faire un assemblage par 
blocs (les morceaux sont stockés sur la disquette et la table des symbo- 
les est placée dans la RAM écran pendant l'assemblage), ce qui est 
heureux car DAMS est très long (quelque 9 K, sans la table des symbo- 
les). Par contre, impossible d’avoir un assemblage sur l'imprimante 
ou à l'écran. Donc, si vous souhaitez connaître l'adresse de telle ou 
telle instruction (pour tracer à partir de là par exemple), impossible, 
surtout s’il n’y a plus de table des symboles. 

En résumé nous dirons de DAMS que certains points gagneraient 
à être améliorés. Mais son mode trace et son assemblage par blocs 
peuvent tout à fait justifier la différence de prix avec ZEN, tout parti- 
culièrement pour de longs programmes. 


UTILISATION DU CHARGEUR BASIC 


Si vous êtes économe et patient, vous pouvez utiliser le chargeur 
BASIC dont le listing est donné ci-dessous. 


199 ’================= CHARGEUR BASIC 


129 DEFINT a-z 

139 WINDOW #9,1,29,1,25 

149 WINDOW #2, 39, 39,1,25 

159 INPUT “Adresse de depart “;ad@ 


169 PRINT 
179 INPUT ‘Adresse de fin ‘“;adf 
189 ’== entree des codes hexadecimaux 


193 FOR ad=ad9 TO adf 

2505 PRINT HEX$(ad), : INPUT c$ 
219 IF LEN(c$)=9 GOTO 289 
229 IF LEN(c$)>2 GOTO 599 
23 GOSUB 449 

249 IF x<@ GOTO 599 

259 POKE ad,c 


269 PRINT#2,HEXS$(ad)+" "+HEX$(c,2) 
279 s=s+c:p=p+c*x(ad-ad9+1) 

289 NEXT 

299 ’======-===--========- verification 


399 CLS:PRINT ‘Somme: ‘"s 

319 PRINT 'Produit: ‘"p 

329 INPUT “D'accord (0/N)';a$ 

339 IF a$<>'N' GOTO 399 

349 CLS 

359 FOR ad=ad9 TO adf 

369 PRINT HEX$(ad)+" “"+HEX$(PEEK(ad),2) 
379 WHILE INKEY$="":WEND 

389 NEXT 

399 ?’============ sauver le programme 


_— 21 - 


498 INPUT “Nom du programme ‘";a$ 

419 SAVE a$, b, ad9, (adf-adÿ+1) 

42S NEW:’fin du programme 

438 ’==== calcul de la valeur a poker 
449 1=2:GOSUB 599 

45G IF x<@ THEN RETURN ELSE c=18%x 
46S 1=1:GOSUB 599 

479 c=c+x 

48S RETURN 

499 ’== calcul du chiffre hexadecimal 
599 IF l<>LEN(c$) THEN x=9:RETURN 

519 x=ASC(c$)-48 

52S IF x<S THEN RETURN 

539 c$=RIGHT$(c$, 1) 

549 IF x<1S THEN RETURN 


559 x=x-7 

569 IF x<19S OR x>15 THEN x=-1 

57@ RETURN 

589 ’======== erreur dans les entrees 


598 PRINT'Erreur, recommencez..." 
699 GOTO 299 


L'utilisation en est très simple. Vous devez d’abord rentrer les adres- 
ses de début, puis de fin du programme (ces adresses sont données 
en hexadécimal en fin de listing pour les programmes de ce livre, 
n'oubliez donc pas le symbole &). 

Vous pouvez ensuite entrer les codes un par un. Ces codes sont 
donnés avec les adresses dans la partie gauche du listing. Vous ne 
devez rentrer, par ligne, que les deux chiffres du code (avec des majus- 
cules pour A à F), ou un seul pour les codes commençant par zéro. 
Vérifiez aussi que vous les rentrez bien aux bonnes adresses (vous 
serez aidé par le listing à droite de l'écran). 

Si vous rencontrez un saut, dû à une directive DEFS n, vous devez 
passer n octets, en entrant une ligne vide en face des adresses cor- 
respondantes, jusqu’à ce que vous arriviez au prochain vrai code ou 
à la fin. 

Arrivé à la fin, le programme vous donnera deux valeurs de con- 
trôle ‘Somme’ et ‘’Produit”’. Comparez-les avec celles données en 
fin de listing. S'il y a égalité, appuyez alors sur une touche autre que 
N, et le programme sera sauvé immédiatement sur support 
magnétique. 

En cas de différence, appuyez sur N. Le programme sera alors listé 
pas à pas pour que vous puissiez vérifier. Si vous trouvez une erreur, 
arrêtez-le et corrigez par un POKE. Lorsque vous serez au bout du 
programme, celui-ci sera sauvé normalement. 
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2. L'ASSEMBLEUR DU Z80 


Avant de considérer les particularités intéressantes des Amstrad, 
il nous faut tout d’abord nous pencher sur le cœur même de la 
machine : son microprocesseur, le Z80. Nous verrons que ce micro- 
processeur possède de nombreuses particularités dont, malheureu- 
sement, on ne pense pas assez souvent à tirer profit. Naturellement, 
les possibilités du Z80 doivent être exploitées dans le cadre de la 
machine, et c’est dans cette optique que ce chapitre est conçu. 

Enfin je tiens à rappeler qu’il n’est pas question ici de détailler tou- 
tes les instructions du Z80 : cela a déjà été fait par R. Zaks (voir biblio- 
graphie). Elles sont supposées déjà connues, en gros, du lecteur. Nous 
allons voir comment on peut en tirer parti à fond. 


M LE Z80. LES REGISTRES 


LE Z80 


Vous le savez déjà, le Z80 est un microprocesseur 8 bits assez 
répandu et dont les possibilités sont plus importantes que celles de 
son concurrent, présent notamment sur Apple Il et Oric, le 6502. C’est 
probablement la raison pour laquelle il fut choisi par Amstrad comme 
cœur de ses machines. 

Sur tous les Amstrad, il ‘tourne’ à 4 MHZ (4 mégahertz), c'est-à- 
dire que l'horloge interne lui envoie 4 millions d’impulsions (méga 
signifie million) en une seconde. La durée la plus courte que puisse 
donc utiliser le Z80 est d’un quart de millionième de seconde, durée 
souvent appelée temps-machine, ou période, que nous noterons sim- 
plement T. 

De ce fait, la durée d’une instruction se mesure commodément en 
périodes. La liste complète des instructions avec leur durée figure dans 
l’Annexe A. Nous pouvons y voir que les instructions les plus rapi- 
des (comme NOP), ont une durée de 4T, soit un millionième de 
seconde, les plus longues (comme RES b,(IX+n)), de 23T soit 5.75 
millionièmes de seconde, ce qui fait évidemment une différence con- 
sidérable, sur laquelle nous reviendrons plus loin. 

L'expression de microprocesseur 8 bits signifie que les registres du 
Z80 peuvent contenir 8 informations élémentaires indépendantes (bit), 
soit l'équivalent d’un nombre binaire à huit chiffres. Un tel nombre 
est donc compris entre 00000000 (0) et 11111111 (255 en décimal, 
FFH en hexadécimal). Ces bits sont numérotés à partir de la droite 
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de 0 à 7. On les notera souvent b,, b,, etc. Rappelons que la valeur 
d’un nombre binaire en décimal est donnée par la formule : 


bb bb bb bb = b, * 2°+b +*2'+b, + 22+b, *2°+b, * 2*+b, 


2565-7435 27 TO 


*2°+b + 2°+b +27. 
6 7 


On se référera sur ce sujet au Chapitre 1. 

Toutefois, le Z80 possède une particularité intéressante : l’accou- 
plement de ses registres 8 bits, qui fait que de nombreuses instruc- 
tions s’exécutent en réalité sur 16 bits (soit un nombre compris entre 
O et FFFFH=65536). Il existe en outre des registres 16 bits. 

Comme la plupart des microprocesseurs 8 bits, le Z80 peut adres- 
ser 64 K (64 kilo-octets). Cela signifie que les cases mémoire qu'il peut 
explorer directement ont un numéro compris entre O et FFFFH (nom- 
bre sur 16 bits), soit 64 K, car un kilo-octet représente 2'°=1 024 
octets, donc 64 K représentent 2° x 2'°=2'* octets. Or il y a effecti- 
vement 2'° nombres compris entre O et FFFFH=2"-1. Un tel nom- 
bre est appelé un mot, par opposition à un octet. 

En fait, nous verrons que sur les Amstrad CPC la mémoire varie 
entre 96 et 176 K. Mais seuls 64 d’entre eux sont accessibles à la fois. 

Au total, le Z80 lui-même possède 18 registres 8 bits, dont 16 sont 
appariables (en 8 paires donc), plus 4 registres 16 bits. Nous les clas- 
serons en groupes ; le groupe 1 contient 4 paires, AF, BC, DE, HL. 
Le groupe 1 bis contient leurs doubles AF’, BC’, DE’, HL’. Le groupe 
2 contient IX et IY. La base est constituée du reste, à savoir R, 1, PC 
et SP. Cette classification commode sera souvent reprise. 

Rappelons que le groupe 1 et le groupe 1 bis ne peuvent être utili- 
sés simultanément. On dit souvent qu'ils sont sur une sorte de tableau 
tournant : lorsque l’une des faces est visible, l’autre est cachée. On 
fait tourner ce tableau par les instructions EX AF, AF' et EXX. 


LES REGISTRES 


Le compteur ordinal (Program Counter) est un registre 16 bits qui 
pointe sur l'adresse mémoire de la prochaine instruction à exécuter. 


96: 


Cette adresse peut être modifiée par un appel (CALL), un retour (RET) 
ou un saut ((UMP). Ainsi l'instruction /P nn consiste simplement à 
charger nn dans le PC. Dès qu’une instruction est exécutée, le pro- 
cesseur va chercher en mémoire l'instruction pointée par le PC, incré- 
mente ce dernier et exécute, et ainsi de suite sauf ordre contraire 
(HALT). 


Le pointeur de pile (Stack Pointer), comme son nom l'indique, 
pointe sur la pile. Nous reparlerons de cette dernière dans un sous- 
paragraphe spécial, car elle est absolument fondamentale. Précisons 
simplement que le SP ne peut être chargé qu’en mémoire, ou à par- 
tir de celle-ci (comme LD SP,(nn)), où à partir de valeurs directes 
(comme LD SP,nn), mais aucunement à partir des registres du Z80 : 
il n’y a pas d'instructions comme LD SP,(HL) ou LD SP,IX. 


Deux registres de peu d'intérêt. R est le registre de rafraîchissement 
de la mémoire vive (il peut servir de générateur de nombres aléatoi- 
res, car sa valeur change très rapidement), et 1 celui des interruptions. 
Il'est peu prudent de chercher à les modifier. Pour plus de précisions, 
voyez R. Zaks. 


Le registre des flags est très spécialisé. Six de ses bits sont des flags 
(indicateurs valant O ou 1), les deux autres (bits 3 et 5) sont toujours 
nuls. Nous reviendrons sur ces six flags et leur utilisation. Pour ce 
qui est de F, sa spécialisation fait qu’il n’est concerné seul par aucune 
instruction en tant que registre. Il ne peut être globalement modifié 
que par POP AF. 


L'accumulateur A est le registre 8 bits le plus fréquemment utilisé. 


De fait, toutes les opérations d’arithmétique 8 bits (ADD, SUB, SBC, 
…) et toutes les opérations logiques (AND, OR, XOR, .….) passent par 
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lui. Ainsi il est impossible d’additionner B et D sans passer par À, qui 
est toujours l'opérateur. C’est donc le registre qui est concerné par 
le plus grand nombre d'instructions. 

Pour des raisons techniques, il n’est pas possible de placer A seul 
sur la pile (on n’empile que les registres 16 bits). Il est donc alors asso- 
cié à F. 


Nous avons déjà parlé de A et F séparément. Réunis, ils forment 
un registre double assez particulier, car seules trois instructions le con- 
cernent directement : POP AF, PUSH AF (dépilement et empilement), 
et EX AF,AF' dont nous avons déjà parlé. Cela s'explique par le fait, 
entre autres, que F ayant ses bits 3 et 5 toujours nuls, AF ne peut 
prendre n'importe quelle valeur entre O et FFFFH. L'utiliser comme 
pointeur, par exemple, serait donc vain. 


BC est le deuxième des registres doubles du groupe 1. Il se distin- 
gue, ainsi que ses deux composantes B et C, par deux points : BC 
est toujours utilisé pour l’adressage des périphériques (voir instruc- 
tions OUT(C),C, OUT], etc.). D'autre part B et BC sont les comp- 
teurs 8 et 16 bits privilégiés (voir instructions DJNZ n, LDIR, etc.). 


DE est le troisième des registres doubles du groupe 1. Peu de parti- 
cularités. || sert essentiellement comme deuxième accumulateur 16 
bits (après HL), notamment dans les instructions de type LDI, etc., 
et dans les routines (voir celles-ci). 


Quatrième des registres doubles du groupe 1, HL n’en est pas pour 
autant le moins important, bien au contraire. Il est en effet un vérita- 
ble accumulateur sur 16 bits, permettant des additions, soustractions 
diverses avec les autres registres 16 bits (mais pas d'opérations logi- 
ques). Ce double registre se distingue également comme pointeur : 
les opérations sur (HL) sont en effet nombreuses (y compris RLD et 
RRD qui utilisent (HL) comme opérande). Notons enfin que certai- 
nes facilités sont données à ce registre double pour le conserver par 
les instructions EX DE,HL et EX (SP), HL. 
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Les registres du groupe 1 bis sont accessibles par deux instructions : 
EX AF,AF' et EXX. La deuxième échange les positions de BC et BC, 
de DE et DE’ et de HL et HL’ tout à la fois. 

Ce groupe 1 bis représente évidemment une tentante table de stock 
pour les registres, malheureusement les concepteurs de l’Amstrad y 
ont pensé les premiers. En particulier BC’ est utilisé pour stocker l’état 
des ROM et RAM : il ne doit jamais être modifié ! De plus, tout appel 
à une routine du système d'exploitation (appel difficile à éviter...) et 
toute interruption du système (fréquents) modifieront tous les regis- 
tres du groupe 1 bis. En foi de quoi, il convient donc de se servir au 
minimum du groupe 1 bis sur Amstrad. 


IX et IY 


IX et IY sont deux registres doubles qui ne peuvent être partagés 
en registres simples comme HL, DE, BC ou AF. Ils sont exactement 
semblables à tous points de vue. Ils servent de pointeurs de varia- 
bles de la mémoire, car ils possèdent de nombreuses instructions rela- 
tives à (IX+n) (où n est un nombre compris entre O et 255), c’est-à- 
dire à l'adresse pointée par IX plus le nombre n. Chacun de ces regis- 
tres doubles permet donc le contrôle direct de 256 octets de la 
mémoire, ce qui est évidemment une particularité essentielle. Tou- 
tefois il n'existe pas d'opérations du même type sur (IX+A) par 
exemple. 


Après une opération, il est souvent essentiel de connaître certains 
détails sur le résultat, par exemple son signe. Ces résultats sont stoc- 
kés dans les bits du registre F, qui constituent six flags. Nous allons 
à présent détailler leur rôle et leur utilité (très inégale). Ces flags sont 
dans le présent ouvrage notés par une minuscule italique. 

Ces flags sont également décrits avec plus de précision par R. Zaks, 
mais il m'a semblé utile de redonner certains détails, surtout sur les 
principaux. 
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Le flag de signe 5 est le bit 7 de F. Comme son nom l'indique, ce 
flag est positionné en fonction du signe du résultat d’une opération 
(il est mis si ce signe est négatif). Il peut être testé directement (ins- 
tructions type RET M et RET P, où M signifie ‘’moins’”” (s=1) et P 
‘’plus’”). 


Le flag z (zéro), bit 6 de F, est mis lorsque le résultat d'une opéra- 
tion est nul. Il peut être testé directement (instructions type RET Z 
et RET NZ, où Z signifie que z=1 (résultat nul), et NZ l'inverse). 


Le flag h, bit 4 de F, est positionné quand le quartet inférieur de 
A déborde dans l’autre au cours d’une opération, particularité utili- 
sée par le Z80 lui-même pour l'instruction DAA. En dehors de cela, 
il est souvent modifié aléatoirement. Son intérêt pour le programmeur 
étant faible, il ne peut être testé directement. 


Ce flag, bit 2 de F, remplit un double rôle en fonction des instruc- 
tions. Pour certaines, il indique un dépassement en fonction du signe. 
Pour d’autres, il indique la parité du résultat (nombre pair où impair 
de bits à 1). 1l peut être testé directement (instructions de type RET 
PE [parité impaire, flag mis] ou RET PO). 


Ce flag, bit 1 de F, est, comme h, utilisé par le Z80 pour DAA. Il 
ne présente aucun intérêt et ne peut être testé directement. 


La retenue c (carry), bit O de F, est le plus important de tous ces 
flags. Elle est en principe positionnée, comme son nom l'indique, 
lorsqu'une opération arithmétique comme une addition provoque 
une retenue par dépassement de capacité. Mais la retenue sert éga- 
lement de bit supplémentaire aux divers registres, lors d'opérations 
de décalage, ou de témoin : c’est le cas par exemple dans les com- 
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paraisons. De tous les flags, la retenue est celui qui est le plus privilé- 
gié, car elle possède un jeu propre d'instructions : SCF positionne 
la retenue, CCF l'inverse, et OR À, par exemple, la met à zéro (sans 
changer A). Naturellement la retenue peut être testée (RET C, RET 
NC). Notons en outre que la retenue sert souvent d’indicateur sur 
la réussite d’une opération par le système (Voyez notamment les rou- 
tines de scrutation du clavier, ou de cassette/disquette). 


M LES INSTRUCTIONS 


Le Z80 possède environ 800 instructions, soit environ trois fois plus 
que le 8080 avec lequel il avait été conçu pour être compatible à 
l’origine. Pour parvenir à un tel jeu d'instructions, les concepteurs 
du Z80 ont dû avoir recours à une astuce pour pouvoir coder ces 
instructions, car en principe une instruction, sur un microprocesseur 
8 bits, est codée sur un seul octet. Pour pouvoir faire mieux, certai- 
nes instructions du Z80 sont préfixées, c’est-à-dire précédées d’un 
octet spécial. Cet octet peut être CBH (préfixe des opérations sur les 
bis et des rotations), EDH (préfixe des instructions d’entrée-sortie, de 
l’arithmétique 16 bits, de LDI, etc.), DDH (toutes instructions faisant 
intervenir IX) ou FDH (toutes instructions faisant intervenir IY). En 
fin de compte, certaines instructions font intervenir quatre octets, opé- 
randes compris. 

Les opérandes eux-mêmes, s'ils sont extérieurs à l'instruction, peu- 
vent tenir deux octets (mots). Aucune instruction n’admet plus de 
deux opérandes. Celles qui le devraient utilisent alors les registres 
(comme LDIR par exemple). 

Notez, c'est très important, que c’est essentiellement la longueur 
en octets d’une instruction et ses opérandes qui en déterminent la 
durée. C’est absolument fondamental pour l’optimisation en durée 
et en longueur de vos programmes (voir l'Annexe A et le Chapitre 5). 

Nous allons à présent donner quelques détails sur les opérandes 
et instructions. Vous trouverez plus de détails chez R. Zaks. 


LES OPÉRANDES 


Les opérandes peuvent être de nombreux types, et nous adopte- 
rons une notation pour chacun d'eux. 
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° Premier type, les valeurs directes : ce sont des nombres sur un où 
deux octets qui suivent généralement l'instruction. Nous les note- 
rons n où nn suivant le nombre d’octets. Par exemple : /P nn. Ce 
type comprend les contenus de valeurs directes. Rappelons que 
‘contenu de ”’ se note dans la syntaxe de l’assembleur du Z80 par 
des parenthèses. Ainsi LD A,(nn) signifie : charger A avec le con- 
tenu de l’adresse mémoire n° nn. Notons que ces parenthèses 
entourent toujours une valeur sur deux octets (puisqu'il s’agit d’une 
adresse mémoire). 


e Deuxième type, les registres 8 bits (que l’on notera r). F est exclu, 
il ne peut s'agir que de A, B, C, D, E, H, L, ou parfois R ou I. Cet 
opérande est toujours intérieur au code de l'instruction (c’est-à- 
dire que le modifier exige de modifier le code). Les parenthèses 
ne se verront jamais autour d’un tel opérande (un seul octet). 
Notons que A est souvent un opérande implicite. OR B, par exem- 
ple, admet deux opérandes : A et B ; on le note ainsi plutôt que 
OR AB par souci de simplicité. 


+ Troisième type, les registres 16 bits (que l’on notera rs) : AF (rare), 
BC, DE, HL, IX, IY, SP. Le Z80 permet beaucoup plus d’instruc- 
tions sur 16 bits qu’il n’est courant chez un microprocesseur 8 bits. 
Notons que le stockage des valeurs 16 bits se fait en inversant les 
deux octets (octet faible d’abord). Ainsi, après l'instruction 
LD HL,(nn), L contiendra l’octet n° nn, et H l’octet n° nn+1. 


° Quatrième type, les bits : RES 4,r, par exemple, met à zéro le qua- 
trième bit du registre r. Ce type comprend aussi les flags (bits de 
F), et notamment les conditions des sauts et des appels. 


e Un peu à part enfin, (IX+n) est en fait comme un registre 8 bits 
(mêmes instructions), mais c’est un octet de la mémoire vive. Il 
s'agit là d’une possibilité très intéressante du Z80, malgré sa rela- 
tive lenteur. De plus, n est un octet qui suit l'instruction. 


LES INSTRUCTIONS SANS OPÉRANDE 


Ilexiste peu de véritables instructions sans opérande. Elles sont géné- 
ralement très rapides. Il s’agit, outre NOP et HALT, des différents RET 
non conditionnels, de DI et de El. 

Il existe par contre de nombreuses fausses instructions sans opé- 
rande. Elles n’apparaissent ainsi que par leur nom. Ainsi NEG aurait 
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pu aussi bien s'appeler NEG À, et de même pour certaines rotations 
comme RRA. Citons aussi SCF (Set Carry Flag : mettre le flag de rete- 
nue) et CCF, qui opèrent sur la retenue. 

Citons aussi les instructions de type LDI qui opèrent en fait sur BC, 
DE et HL, et EXX. 


LES INSTRUCTIONS A UN OPÉRANDE 


Outre les sauts et appels non conditionnels, les restarts et les retours 
conditionnels, les rotations, décalages, incrémentations et décrémen- 
tations (toujours sur des registres 8 bits, ou sur des octets pointés par 
HL ou IX+n, sauf pour les incrémentations et décrémentations qui 
peuvent admettre des opérandes 16 bits) sont l'essentiel des instruc- 
tions n’admettant qu’un opérande. Leur rapidité dépend essentielle- 
ment de l’opérande. 

Citons également les empilements et dépilements qui admettent 
un opérande 16 bits obligatoirement (AF, BC, DE ou HL). 


LES INSTRUCTIONS A DEUX OPÉRANDES 
Ce sont les plus nombreuses. Elles comprennent : 


e Les appels et sauts conditionnels (voir Chapitre 3). 


e Les opérations sur les bits, BIT, RES, SET qui admettent un numéro 
de bit comme premier opérande et un registre 8 bits ou un octet 
pointé comme deuxième. Suivant l’opérande, leur durée est très 
variable (8 T pour r, 23T pour (IX+n)). Notez que BIT modifie tous 
les flags, hormis la retenue, mais que RES et SET n'en modifient 
aucun. 


e Les opérations logiques et arithmétiques 8 bits, dont le premier opé- 
rande est toujours À, qu'il soit cité ou non ; on peut d’ailleurs se 
demander pourquoi la syntaxe de l’assembleur demande d'écrire 
ADD A,B mais SUB B ? Le deuxième opérande est un registre 8 
bits ou un octet pointé. Rappelons qu'il existe quatre opérations 
arithmétiques (ADD, ADC, SUB, SBO) et quatre logiques (OR, AND, 
XOR, CP). Toutes ces opérations modifient tous les flags ; XOR, 
OR et AND mettent la retenue à zéro (d’où l'utilité de OR A et 
AND A qui servent à annuler c). 
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e Les instructions d'arithmétique 16 bits dont le premier opérande 
est toujours HL, IX ou IY et le second un registre 16 bits quelcon- 
que (hormis AF et PC). Les opérations arithmétiques sont les mêmes 
que pour 8 bits. Notons que ADD ne modifie dans ce cas que la 
retenue, et pas les autres flags comme le font ces opérations. 


e L'instruction LD (LoaD : charger) enfin, qui peut admettre des opé- 
randes très divers. En général, sa syntaxe est : LD destination, 
source. La destination et la source doivent être du même format 
(8 ou 16 bits) ; seul (nn) peut être, selon les cas, une quantité sur 
8 ou 16 bits. Sur 8 bits, l’un au moins des opérandes doit être un 
registre r (différent de R, | ou F) ; l’autre peut alors être un registre 
8 bits (sauf F), ou (HL), (IX+n), ou une valeur directe n ; si l’un 
des opérandes est À, l’autre peut aussi être (nn), ou (BC), (DE). Sur 
16 bits, l’un au moins des opérandes doit être (nn), SP (toujours 
en premier opérande), ou nn (toujours en deuxième). L'autre peut 
être un registre 16 bits (sauf PC et AF) ou (nn). Dans ce dernier 
cas, l'instruction est plus rapide si elle se fait sur HL. Notez une 
chose essentielle sur cette instruction : hormis LD A,R et LD A,I, 
LD ne modifie jamais les flags. De plus, il existe des instructions 
‘inutiles’ comme LD A,A qui ne changent rien. 


e Enfin, très particulières mais très commodes, les instructions 
d'échange : outre EX AF,AF' et EXX qui sont à part, il reste EX DE,HL 
d'usage fréquent, et EX (SP),rs où rs est HL, IX ou IY, instruction 
qui permet d'échanger le contenu d’un registre avec la dernière 
valeur placée sur la pile. Ces instructions ne modifient pas les flags 
(sauf EX AF, AF’ évidemment). 


M LA PILE ET LES SAUTS 


LA PILE 


Il'est fondamental de comprendre comment fonctionne la pile. La 
comparaison la plus claire, je pense, est celle d’une pile d’assiettes : 
lorsqu'on place une assiette en haut, c’est elle qui sera retirée la pre- 
mière au prochain retrait ; on dit qu’il s'agit d’une structure LIFO (Last 
In, First Out : dernier entré, premier sorti). Mais il ne faut pas oublier 
trois choses très importantes, et qui sont souvent source d'erreurs. 
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1. 


Le registre SP pointe sur le premier octet (octet de poids faible) 
du dernier rentré, soit. Mais lorsqu'on fait un empilement (par 
PUSH par exemple), le SP est décrémenté de 2. En fait la pile se 
trouve tête en bas : le sommet est vers le bas de la mémoire, la 
base vers le haut. Donc si vous voulez l'emplacement du dixième 
nombre empilé (dixième en partant de la fin), il faut additionner 
20 (deux fois 10) au SP. 


. La pile se trouve en RAM. En particulier, elle n’est pas à l’abri de 


modifications possibles de la RAM. L'erreur classique en la matière 
consiste à charger un fichier en plein sur la pile, ou pire, à la pla- 
cer dans la mémoire écran, puis d'effacer ce dernier ! Combinai- 
son de cette erreur et de la précédente : placer le SP à O, en s’ima- 
ginant que la pile va monter dans la mémoire inférieure... alors 
qu’elle descend (0=FFFEH +2) dans la mémoire écran. Inverse- 
ment, la pile peut aller détruire juste l'endroit où vous avez placé 
vos paramètres essentiels. D'une façon générale, il faut trouver 
pour la pile un endroit bien séparé. Le BASIC la place avec raison 
juste en dessous de l’écran par LD SP,CO00H (rappelez-vous : elle 
descend !). Il est conseillé de l'y laisser, surtout pour de petits pro- 
grammes. Dans le même ordre d'idées, évitez les PUSH à répéti- 
tion, vous risquez de déborder de la zone allouée à la pile. Si vous 
faites attention, votre pile ne devrait jamais dépasser une cinquan- 
taine d’octets, quelle que soit la longueur de votre programme. 


. Les adresses de retour des appels (par CALL et RST) sont empi- 


lées. C'est là une source d'erreurs insidieuse et fréquente, pas tou- 
jours très facile à éviter. De toute façon, la transmission de para- 
mètres à une subroutine ne peut se faire en les plaçant sur la pile, 
sauf si vous avez prévu de dépiler l’adresse de retour dans la 
routine. 


Pour éviter des erreurs fréquentes (malgré de nombreuses précau- 


tions) et surtout graves (car un changement de la pile a toutes les chan- 
ces de planter le programme au prochain RET), rappelons aussi les 
instructions qui modifient le SP : outre INC SP, DEC SP, LD SP,nn, 
LD SPrs, LD SP, (nn), il y a aussi tous les CALL, tous les RET, les RST, 
et évidemment les POP et PUSH. Par contre, les /P, les JR et EX (SP),rs 
ne modifient jamais le SP. D'une façon générale, il est important, au 
moment où vous programmez, que vous ayez en tête la position de 
la pile et la valeur des derniers octets empilés. Cela évitera une autre 
erreur également très fréquente, et extrêmement pernicieuse : une 
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routine où se trouvent plus d’empilements que de dépilements, ou 
le contraire ; le retour risque alors de donner des effets inattendus... 


LES SAUTS 


Il'existe deux sortes de sauts : les sauts relatifs (/R) et les sauts absolus 
UP). 

Ces derniers consistent simplement à charger le PC avec un nom- 
bre nn sur deux octets qui est l'adresse de saut souhaitée. Une telle 
instruction prend trois octets en mémoire : un pour l'instruction et 
deux pour nn. 

Les sauts relatifs ont l’avantage de ne prendre que deux octets en 
mémoire, d’où un gain de place qui peut être très utile. Leur para- 
mètre n’est pas un nombre sur deux octets, mais sur un seul qui est 
additionné au PC en tenant compte de son signe, ce qui permet un 
saut en arrière de 126 octets au maximum et de 129 en avant. Il en 
résulte que seules les adresses proches de celle de l'instruction cou- 
rante peuvent être atteintes. De plus, bien que plus court en octets, 
ce type de saut est plus long à exécuter (du fait de l'addition néces- 
saire). Le seul avantage est donc sa place mémoire réduite ; mais cet 
avantage suffit pour en justifier une utilisation maximale. Notons 
encore, au sujet des sauts relatifs, leur syntaxe en assembleur. Vous 
pouvez par exemple écrire : /JR+ 12 ; mais cela exige que vous comp- 
tiez le nombre d’octets qui va suivre, ce qui n’est guère simple (sur- 
tout quand certaines instructions font plusieurs octets) ; de ce fait, 
on écrit en général /R adresse, et c’est l’assembleur qui se charge de 
calculer le déplacement relatif correspondant. 

Avant de passer aux appels de subroutines, notez que ces sauts 
et ces appels peuvent être conditionnels, c'est-à-dire exécutables seu- 
lement si un flag est positionné correctement. Par exemple, un JP Z,nn 
ne provoquera un.saut que si le flag z est mis. Dans le cas contraire, 
l'instruction est ignorée. Les conditions possibles sont pour JP : Z, 
NZ, C, NC, PO, PE, P, M (voir description des flags), soit le test de 
quatre flags. Pour JR, seules les quatre premières conditions sont 
acceptables, soit le test de deux flags. 

Enfin, un saut peut se faire à une adresse contenue dans un regis- 
tre : (HL), (IX), (IY). Ces sauts sont alors plus rapides et prennent moins 
d'octets en mémoire (mais ce sont toujours des sauts absolus). 

En résumé, le saut absolu présente plus de possibilités, mais on ne 
l’utilisera que lorsqu'on ne pourra pas faire autrement, ou pour une 
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sévère optimisation en durée. Dans le cas contraire, on cherchera 
à minimiser l'encombrement du programme en utilisant les sauts 
relatifs. 


LES APPELS DE SOUS-PROGRAMMES 


L'instruction CALL est l’une des plus souvent utilisées en assem- 
bleur, car elle permet d'appeler ce qu’on nomme en général des sub- 
routines, c’est-à-dire de petits sous-programmes qui sont susceptibles 
de servir plusieurs fois dans un même programme général. Nous 
reviendrons sur la manière de programmer ces subroutines dans le 
Chapitre 5, mais expliquons tout d’abord leur structure générale. 

La séquence usuelle pour un appel de subroutine est la suivante : 
CALL routine, puis ailleurs dans le programme : routine:.../ RET. Lors- 
que le Z80 rencontre l'instruction CALL nn, il empile l'adresse de 
retour (c’est-à-dire l’adresse de l'instruction CALL +3), et place dans 
le PC le nombre nn. Lorsque le Z80 rencontre l'instruction RET, il 
dépile simplement la valeur du haut de la pile dans le PC (comme 
s’il faisait un POP PO). Si vous n'avez pas manipulé la pile inconsidé- 
rément dans la subroutine, la valeur dépilée par le RET est justement 
la valeur empilée par le CALL, et le programme reprendra son cours 
normal après l'exécution de la subroutine. 

Ce scénario classique peut néanmoins être modifié. Il peut l'être 
tout d’abord par erreur, comme nous l'avons vu précédemment, et 
cela du fait que la pile contient à la fois des valeurs que vous y avez 
sauvées et les adresses de retour (il y en a souvent plusieurs, car les 
appels imbriqués sont très courants). Comme ces dernières ont été 
empilées en quelque sorte malgré vous, vous risquez de les oublier. 

Mais si vous y pensez, il ne faut pas craindre de changer le cours 
normal des choses. Vous disposez d'instructions qui vont vous aider, 
s'il est essentiel que vous transmettiez des paramètres à la routine 
par la pile. Supposons par exemple qu’à l’intérieur de votre routine 
vous deviez récupérer deux nombres dans HL et DE, empilés avant 
l'appel. Que faire ? Vous avez trois possibilités : 


e Tout d'abord, la première qui vient à l'esprit, et qui est la plus mau- 
vaise : décrémenter deux fois le SP ; il pointe alors sur les valeurs 
sauvées ; il ne vous reste plus qu’à faire deux POP, puis à restituer 
le SP dans sa valeur initiale. Pourquoi n'est-ce pas une bonne idée ? 
Pour trois raisons : en premier lieu, les décrémentations et incré- 
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mentations de SP nécessaires sont nombreuses (huit dans notre 
exemple), cela finit par prendre beaucoup de temps, ce qui est 
spécialement mal venu dans une routine utilisée plusieurs fois ; 
en deuxième lieu, si vous faites d’autres appels ou empilements 
à l’intérieur de votre subroutine, vous risquez de détruire l'adresse 
de retour ; enfin et surtout, après votre RET, les deux valeurs seront 
toujours sur la pile, ce qui n’est généralement pas souhaitable. Cette 
méthode sera donc utilisée seulement si l’on désire que les deux 
valeurs soient encore sur la pile après l’appel de la subroutine, cir- 
constance en fait exceptionnelle (et il existe alors de meilleures 
méthodes que l’empilement). 


Deuxième méthode, très commode si l’un des registres HL, IX ou 
IY est inutilisé. C’est souvent le cas de IY. Dans ce cas, dès le début 
de la subroutine faites POP IY. L'adresse de la subroutine est alors 
conservée dans |Y. La subroutine se terminera alors par /P (IY), ordre 
commode s’il en est. La pile n’étant plus concernée après le dépi- 
lement, vous pouvez en faire ce que vous souhaitez. 


Troisième possibilité, si tous vos registres sont modifiables ou uti- 
lisés (par exemple si votre subroutine appelle elle-même une rou- 
tine de l’arithmétique à virgule flottante), utiliser les instructions 
d'échange. Dans notre exemple vous ferez : POP HL/ POP DE/ EX 
(SP), HL. La dernière instruction replace l'adresse de retour sur la 
pile tout en plaçant dans HL la donnée à récupérer. Si les don- 
nées étaient sauvées dans l’ordre inverse, il faudrait ajouter à cette 
séquence un EX DE,HL. Naturellement, si BC doit intervenir, tout 
peut se compliquer... à la limite, il vous faudra peut-être avoir 
recours à une table de stock de deux octets : 


PUSH HL/ EX (SP),HL/ LD (stock), HL/ POP HL/.. dépilements 
nécessaires …/ PUSH HL/ LD HL,(stock)/ EX (SP),HL. 


Là encore, l'adresse de retour se retrouve en fin de compte en haut 
de pile, prête pour un RET, et tous les registres sont conservés, même 
la valeur initiale de HL. On voit sur cet exemple que cette instruc- 
tion EX (SP),HL est extrêmement puissante, car en réalité la valeur 
de HL n’a nullement été affectée par toutes ces manipulations. 
En conclusion, nous voyons que l’appel de subroutines, s'il peut 
être problématique, peut aussi réserver des surprises positives, du fait 
même de sa complexité. 
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Avant d’en terminer avec les appels de subroutines, rappelons que 
les CALL et les RET peuvent être conditionnels (les conditions sont 
les mêmes que pour /P). D'autre part, il n’existe pas d'appels rela- 
tifs : les appels prennent donc tous trois octets de la mémoire. 


Æ INSTRUCTIONS MAL AIMÉES ET INSTRUCTIONS CRÉÉES 


INSTRUCTIONS MAL AIMÉES 


On ne pense pas toujours à utiliser toutes les instructions du Z80. 
Pourtant, toutes ou presque peuvent servir. Je vous propose d'en voir 
quelques-unes dès à présent. Nous en verrons encore au Chapitre 5. 

Tout d’abord les plus connues (mais pas forcément de tous) : les 
opérations logiques de A sur lui-même. OR A et AND À ont le même 
effet : elles ne modifient pas l’accumulateur, donc semblent inutiles. 
Rien de plus faux, elles positionnent les flags : la retenue est annulée 
(c'est pourquoi il n'existe pas de RCF : Reset Carry Flag, ces ordres 
conviennent) et les autres flags sont positionnés en fonction de A ; 
vous pouvez ainsi tester son signe ou sa nullité, même après un LD 
A,r, qui ne positionne pas les flags. XOR A met A et tous les flags 
à zéro. Il est plus rapide et moins encombrant en mémoire que LD 
A,0. Cette dernière instruction ne doit donc être utilisée que si l’on 
désire annuler A sans modifier les flags. 

Dans le même ordre d'idées, les incrémentations et décrémenta- 
tions peuvent rendre des services. Ainsi, pour mettre 1 dans A (ou 
— 1) en positionnant les flags, XOR A/INC A est plus rapide et moins 
encombrant que LD A,1/ OR A. Le tout est d'y penser... 

Plus subtiles, les additions et soustractions avec retenues. Elle per- 
mettent soit des gains de temps, soit même de véritables simplifica- 
tions. Par exemple, si vous avez dans HL une valeur nn et que vous 
souhaitiez y placer 2xnn +1, vous pouvez faire ADD HL,HL/INCHIL, 
mais c'est moins rapide que SCF/ ADC HL, HE, qui donne le même 
résultat. Autre exemple : si vous souhaitez positionner A en fonction 
de la retenue (c’est fréquent), par exemple en donnant A =0 si la rete- 
nue est nulle et A=FFH (= —1) dans le cas contraire, faites SBC A,A, 
et c'est tout ; si vous préférez A=1 si la retenue est nulle et O sinon, 
faites SBC A,A/ INC A, et non CCF/ LD A,0/ RLA qui est plus long 
en octets et en temps ; si vous préférez A=1 si la retenue est nulle 
et —1 sinon (FFH), c'est un soupçon plus compliqué, mais vous avez 
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le choix entre SBC A, A/ADD A,A/ INC A ou SBC A,A/ SCF/ ADC A,A 
dont les durées sont les mêmes (je vous engage à bien vérifier que 
le bon résultat est ainsi obtenu.…..). Ce genre de tour est tout de même 
plus élégant que de lourdes boucles du genre : LD A,1/JR NC,suite/ 
LD A,FFH/ suite: plus longues (20 T en moyenne, contre 12 pour 
la séquence précédente) et plus encombrantes (6 octets contre 3 !). 
Vous pourrez souvent éviter ce genre de petits sauts en cherchant 
soigneusement la bonne opération. 

Dans le même genre, n'oubliez pas non plus les rotations : il en 
existe beaucoup dans le Z80. Donc si vous voulez diviser un regis- 
tre r (B par exemple) par 2, faites SRL B, le reste est alors dans la rete- 
nue (pour le récupérer dans À, faites LD A,0/ ADC A,A). Pour le mul- 
tiplier par 2, de même, faites SLA B... 

En combinaison avec les rotations, n'oubliez pas CCF. Cette ins- 
truction permet de complémenter la retenue, mais aussi certains autres 
bits. Ainsi, pour complémenter le bit 7 de A, vous pouvez faire XOR 
80H ; mais pour un autre registre (B par exemple), plutôt que de le 
faire passer dans À, faites RL B/ CCF/ RR B. Un tableau récapitulatif 
des diverses rotations est donné en Annexe B. 

Terminons pour le moment cette liste avec les instructions 
d'échange. Ces instructions permettent toutes sortes d'échanges. La 
plus importante est EX (SP), HL, car elle permet de prendre n'importe 
quel mot (16 bits), où qu'il se trouve en mémoire, et de le placer 
en haut de la pile, sans modifier aucun registre : PUSH HL/ LD 
HL, (adresse)/ EX (SP), HL ; idem pour des valeurs directes nn ; de plus, 
on peut ainsi en quelque sorte dédoubler le registre HL, en plaçant 
une variable en haut de pile lorsqu'il n’y a plus de place dans les 
registres. Les mêmes opérations sont possibles avec IX et lY. 


LES INSTRUCTIONS CRÉÉES 


Il vous arrivera de souhaiter la présence d’une instruction qui 
n'existe pas : il faudra alors la simuler, en utilisant plusieurs instruc- 
tions existantes (cela donne une macro-instruction). 

Ainsi LD DE, BC n'existe pas. Pour réaliser cela, il faut faire : 
LD D,B/ LD E,C. C'est simple. Tout se complique pour réaliser LD 
IX,BC, car IX n’est pas décomposable en registres 8 bits ; il faut pas- 
ser par la pile : PUSH BC/ POP IX. Et pour LD HL,SP, il faut ruser : 
LD HL,0/ ADD HL,SP. 
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Comment réaliser SRL HL (division par deux de HL) : SRL H/RR 
L, pas très difficile. ADD IX,HL n'existe pas non plus : on la rempla- 
cera par EX DE,HL/ ADD IX, DE/ EX DE,HIL, facile aussi. Soit, mais com- 
ment faire ADD BC,IX ? Comme ceci : PUSH IX/ ADD IX,BC/ EX 
(SP),IX/ POP BC. 

Les rotations sont plus compliquées quand il faut les faire sur 16 
bits ; pour faire RL HL, par exemple, il faut faire ADC HL,HEL, c'est 
simple mais subtil. Pour le contraire, RR HL, faire RR H/RR L, tout 
simplement. 

Et comment mettre F à une valeur donnée n (par exemple FFH pour 
mettre tous les flags à 1) sans changer aucun registre ? En faisant PUSH 
HL/ LD H,A/ LD L,n/ EX (SP),HL/ POP AF, par exemple. 

Liste non exhaustive, qui prouve qu'il Y a toujours moyen de se 
débrouiller en restant simple : à bon entendeur... 
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3. LES AMSTRAD CPC 


Rappelons qu'il existe actuellement trois Amstrad CPC : le 464, avec 
lecteur de cassette et 64 K de mémoire vive ; le 664, avec lecteur 
de disquette et 64 K de mémoire vive ; le 6128, avec lecteur de dis- 
quette et 128 K de mémoire vive. Il existe entre eux de nombreux 
points communs. En particulier, leur microprocesseur est le même 
(Z80 sous 4 MHz), ce qui permet, aidé par les routines système (voir 
le Chapitre 8 qui leur est consacré), d'assurer une certaine 
compatibilité. 

Nous allons à présent étudier un peu ces machines : car qui ne 
connaît pas bien son appareil ne peut espérer en tirer un bon parti. 


B LA MÉMOIRE DES CPC 


ORGANISATION DES BLOCS MÉMOIRE 


La mémoire des CPC est organisée par blocs de 16 K. Ces blocs 
sont d’un nombre variant de 6 à 11 suivant le type. Or le Z80 ne peut 
adresser directement que 64 K de mémoire (adresses 0 à FFFFH). Cer- 
tains de ces blocs sont donc ‘‘’parallèles’’, c’est-à-dire que lorsque 
l’un se trouve directement adressable, l’autre ne l’est pas. Ces blocs 
sont représentés de manière symbolique sur la figure de la page 43. 

Nous voyons représentée sur ce schéma une échelle à droite repré- 
sentant les quatre positions possibles des blocs mémoire : bloc infé- 
rieur (adresses O0 à 3FFFH), bloc médian inférieur (adresses 4000H 
à 7FFFH), bloc médian supérieur (adresses 8000H à BFFFH), bloc supé- 
rieur enfin (adresses CO00H à FFFFH). Pour chacune de ces positions, 
un ou plusieurs blocs peuvent être connectés. Mais s'ils occupent 
les mêmes positions, deux blocs ne peuvent être connectés ensemble. 

Ainsi, sur le CPC 464, si nous voyons que la partie médiane est for- 
mée de deux blocs de RAM seuls, par contre la partie inférieure est 
occupée simultanément par un bloc de RAM (où se trouvent notam- 
ment les programmes BASIC usuels) et un bloc de ROM très impor- 
tant : le système d'exploitation. La partie supérieure est de même 
occupée par deux blocs parallèles : la RAM écran d’une part, et la 
ROM BASIC d'autre part. 

Sur le 664, un bloc a été ajouté en haut de mémoire : c’est évi- 
demment le DOS (Disc Operating System) qui gère les disquettes et 
leurs lecteurs. En fait, ce bloc comprend aussi une partie de CPM, 
et une autre de Dr LOGO. 
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H 0000 
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des trois CPC. 


Organisation mémoire 
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Sur le 6128, les 64 K de mémoire supplémentaires ont été ajoutés 
sous la forme de quatre blocs de RAM (numérotés de 4 à 7) en plus 
du bloc déjà présent (bloc O). 

Il s’agit là des Amstrad dans leur configuration de vente. Mais la 
possibilité a été prévue de brancher jusqu’à 251 ROM supplémen- 
taires parallèles au BASIC, comme le DOS. C'est ce qui se passe d’ail- 
leurs chez les possesseurs de 464 munis d’un lecteur de disquette 
DDI : le DOS se trouve alors dans le lecteur. Si vous êtes bricoleur, 
vous pouvez ainsi ajouter toutes les ROM qui conviennent. Elles seront 
repérées par un numéro (0= BASIC, 7 = DOS) ; ces ROM sont dites 
externes ou secondaires. 

Dans tous les cas, des commutateurs permettent de brancher tel 
ou tel bloc parallèle en appelant certaines routines (voir Chapitre 7), 
notamment B900H et B903H pour l’écran et la ROM BASIC, B906H 
et B909H pour les blocs inférieurs, B9OFH pour les ROM supérieu- 
res secondaires et, pour le 6128, BD5BH pour connecter le bloc de 
RAM voulu. 

Au total nous comptons en fait 96 K de mémoire pour le 464, 112 K 
pour le 664 et 176 K pour le 6128. 


LA MÉMOIRE VIVE 


Outre l'écran qui occupe les 16 K de la mémoire vive supérieure, 
il existe d’autres parties de la RAM qui sont occupées dès 
l’initialisation. 

Tout d’abord les octets O à 3FH sont pris par les restarts : il y a là 
une copie des octets 0 à 3FH de la ROM inférieure ; de la sorte ces 
restarts (RST) peuvent fonctionner quel que soit l’état du bloc infé- 
rieur, ce qui est essentiel pour le bon fonctionnement des routines 
(presque toutes introduites par des restarts : voir la description de ceux- 
ci et des routines au Chapitre 8). Ces octets ne doivent donc jamais 
être modifiés sans d'extrêmes précautions. 

La ligne d'entrée du BASIC (celle que vous tapez après l'affichage 
du message Ready) commence en 40H. Limitée à 256 caractères, cette 
zone s'achève en 13FH. Le programme BASIC commence en 170H, 
après une partie transitoire. Ce programme est suivi des variables 
numériques et alphanumériques. La longueur de cette zone est évi- 
demment très variable ; elle est limitée par l'instruction memory. En 
assembleur, il faut loger quelque part l’assembleur lui-même : tous 
se placent en 4000H (pour le reste voir la description des assembleurs 
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du commerce au Chapitre 1). En haut de la RAM médiane, on trouve 
les vecteurs de B900H à BDCOH (environ), suivis par la pile BASIC 
et précédés des variables du système dont les valeurs pour les trois 
CPC sont données en Annexe C. S'il y a un DOS, celui-ci a ses pro- 
pres variables, qui sont placées en principe de A700H à ABAFH. 

En résumé, la zone de RAM libre s'achève en ACOOH pour un 464 
sans lecteur de disquette, et en A700H pour les autres machines. 

Notons encore une particularité curieuse des blocs de RAM du 
6128 : ils ne sont pas réinitialisés par un RST O où assimilé ; seule 
une mise hors tension de la machine peut les remettre à zéro (façon 
de parler, car ils contiennent aussi des FFH en initialisation). 


LE SYSTÈME D'EXPLOITATION 


Une description complète du système d'exploitation serait hors de 
propos et guère utile ; mais il peut être intéressant de savoir quel- 
ques grandes lignes, en plus des routines listées dans le Chapitre 8. 

Ce système d'exploitation est le cœur même de l’Amstrad : c'est 
lui qui s'occupe de tout, hormis de l'unité de disquette. Il a été modifié 
d'un CPC à l’autre ; du 464 au 664 surtout, il a fallu gagner de nom- 
breux octets pour loger les parties supplémentaires (voir routines spé- 
cifiques des 664 et 6128) ; le plus gros rajout est indiscutablement 
celui provoqué par la routine de remplissage FILL, plus les modifica- 
tions apportées par MASK au tracé de ligne : au total quelque 520 
octets ! Pas de gros rajout en passant du 664 au 6128, mais encore 
de petites modifications. Dans les deux cas le système a été entière- 
ment relu et on a cherché à gagner le maximum d’octets. Mais il a 
tout de même fallu détruire l’arithmétique entière, présente seule- 
ment sur 464, et dont le BASIC ne se sert pas (il a la sienne propre 
en haut de mémoire). 

Le système d’exploitation se partage en onze morceaux bien dis- 
tincts. Premier d'entre eux, le noyau (kernel) assure la gestion des 
événements, temporisés ou non, des ROM, des instructions supplé- 
mentaires. Une grande partie est recopiée en haut de mémoire (à 
partir de B900H). Il est suivi du groupe machine (machine pack), qui 
comprend toutes les routines d’entrées-sorties existantes (appelées 
par les autres groupes). Ensuite, on trouve un groupe qui ne com- 
prend qu’une seule routine, suivie de la liste de tous les vecteurs par 
défaut : c’est le rétablisseur de vecteurs (jump restore). Vient alors 
le groupe écran (screen pack), qui se charge de la gestion de l'écran 
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lui-même : c’est un sous-traitant fréquemment appelé par les deux 
suivants ; le premier de ces deux suivants assure la gestion du texte 
(text screen) (sortie des caractères à l'écran, fenêtres, etc.) : le second 
gère les graphiques (graphics screen). 

Puis l’on trouve les gestionnaires de périphériques : le clavier 
d’abord (keyboard manager), puis le générateur de son (sound mana- 
ger), puis du lecteur de cassette (cassette manager), et ce, même sur 
les 664 et 6128. On trouve pour finir l'éditeur (screen editor), si sou- 
vent utilisé par le BASIC, puis la liste des matrices de caractères, enfin 
l’arithmétique : à virgule flottante, et sur 464, en plus, l’arithmétique 
sur les entiers. 


AUTRES ROM 


Il serait complètement hors de propos de parler ici de la ROM 
BASIC... De fait, les routines qui la composent sont pour la plupart 
interdites au programmeur en assembleur, car faisant sans cesse réfé- 
rence à des possibilités d'erreur, au programme BASIC, aux varia- 
bles, etc. : il n’y a pratiquement aucune routine bien distincte à l’in- 
térieur de cette ROM. On notera seulement dans l'Annexe C quel- 
ques rares adresses utiles, en particulier les points d'entrée du BASIC 
(pour les retours de programme). 

Pour ce qui est du DOS, on trouvera de nombreux détails dans /e 
Livre du lecteur de disquette Amstrad (voir bibliographie). Les com- 
munications avec les routines du DOS qui sont des extensions d’ins- 
truction sont expliquées dans le Chapitre 4. 


M LES ÉVÉNEMENTS TEMPORISÉS 


Les Amstrad possèdent une particularité curieuse mais intéressante 
pour un bon programmeur en assembleur. Il s’agit des événements 
temporisés. 1| n’est guère possible d'en parler beaucoup ici, car la 
question est très complexe, et de plus se comprend beaucoup mieux 
par des exemples et par la pratique. 

Tout d’abord, de quoi s'agit-il ? 

Le Z80 possède une horloge interne qui régulièrement, tous les 
1/300 de seconde, lui envoie ce qu’on appelle une interruption, c'est- 
à-dire un signal donné. Lorsque le Z80 reçoit ce signal, il passe à une 
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certaine routine qui va examiner dans une queue d'attente s’il faut 
faire quelque chose, à défaut va décrémenter des compteurs. De 
temps à autre, un événement va donc se produire, c’est-à-dire qu’une 
certaine routine va être exécutée. Selon ce principe, et avec les mêmes 
conséquences, deux autres interruptions se produisent, elles, tous les 
1/50 de seconde : l’une est un multiple de la précédente, l’autre est 
liée au retour du faisceau du moniteur (phase sombre). À chacune 
correspondent d'ores et déjà certains événements : pour l’une, l'in- 
crémentation des chronomètres internes, pour l’autre, le rafraîchis- 
sement des couleurs et leur clignotement. 

Certaines routines système (de BCD7H à BDO7H) permettent d’ajou- 
ter et d'enlever d’autres routines d'événements. Pour plus de détails, 
on se référera à ces routines, au Chapitre 8, mais il faut ici encore 
expliquer quelques notions. 

En particulier le bloc d'événement est une partie de la mémoire 
qui est utilisée par le système pour la gestion de votre événement. 
Elle doit comprendre huit octets pour les événements rapides (1/300 
de seconde) ou liés audit retour de rayon du CRT (contrôleur vidéo), 
et quatorze pour les ‘‘’normaux’’ (1/50 de seconde). 

Le compteur, quant à lui, est la valeur qui est décrémentée à cha- 
que interruption ; la routine est exécutée lorsqu'il arrive à zéro. Rien 
ne se passe si le compteur est négatif. 

Pour d’autres détails encore et surtout pour des exemples, bien utiles 
dans un tel cas, on se référera au Chapitre 6. 


M LES INDIRECTIONS 


Les indirections sont elles aussi une particularité d'Amstrad dont 
un bon programmeur en assembleur peut tirer utilement parti. 

Ce sont des adresses (de BDCDH à BDF1H) où se trouvent des sauts 
à des routines de la ROM inférieure (attention, il s'agit de sauts, donc 
cette ROM est supposée connectée). L'intérêt de ces adresses est 
qu’elles sont appelées par certaines autres routines du sytème d’ex- 
ploitation. Dès lors, on peut légèrement modifier ces dernières, tout 
simplement en détournant ces sauts ou en les supprimant (en met- 
tant un code RET à la place). 

C'est pourquoi ces routines portent le nom d’indirections. À vous 
de voir ce que leur modification peut donner. Elles peuvent être res- 
taurées par certains RESET (indiqués). 
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Voici la liste de ces indirections, avec les routines qui les appellent 
(instruction CALL), et celles qui y sautent (instructions /P), ainsi que 
l'adresse de la routine qui les restaure, pour le cas où vous change- 
riez d'avis sur leur modification. 


BDCDH 

Saut à l'adresse : 1263H (464) ; 125BH (664) ; 125FH (6128). 
Effet : Place un curseur sur l’écran. En sortie, AF est modifié. 
Vecteurs sautant : BB5DH (PRINT2), BB75H (LOCATE), BB7BH 


(TCRON), BB90H (PEN), BB96H (PAPER), BB9CH (INVERS) 
+traitement des codes de contrôle 11 et 12. 


Restauré par : BB51H (TRESET). 


Saut à l'adresse : 1263H (464) ; 125BH (664) ; 125FH (6128). 
Effet : Enlève le curseur de l’écran. En sortie, AF est modifié. 


Vecteurs appelant : BB4EH (TINIT), BB6CH (CLSO), BB75H 
(LOCATE), BB7BH (TCRON), BB7EH (TCROP), BB90H (PEN), 
BB96H (PAPER), BB9CH (INVERS) et tout déplacement de curseur. 


Restauré par : BB51H (TRESET). 


Saut à l'adresse : 134AH (464) ; 1347H (664) ; 134BH (6128). 

Effet : Écrit un caractère dont A contient le code à l’écran, à la posi- 
tion précisée par HL. En sortie, le groupe 1 est modifié. 

Vecteur appelant : BB5DH (PRINT). 

Restauré par : BB51H (TRESET). 


Saut à l'adresse : 13COH (464) ; 13BAH (664) ; 13BEH (6128). 

Effet : Lit un caractère à la position précisée par HL sur l'écran. Si 
un caractère est reconnu, il est placé dans A et la retenue est 
mise. Le groupe 1 est modifié. 

Vecteur appelant : BB60H (READ). 

Restauré par : BB51H (TRESET). 
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Saut à l'adresse : 140CH (464) ; 1406H (664) ; 140AH (6128). 


Effet : Écrit le caractère ou exécute le code de contrôle contenu 
dans A. En sortie, le groupe 1 est modifié. 


Vecteur appelant : BB5AH (PRINT). 
Restauré par : BB51H (TRESET). 


Saut à l'adresse : 1816H (464) ; 1782H (664) ; 1786H (6128). 


Effet : Place un point à l'écran, aux coordonnées précisées par DE 
et HL. En sortie, le groupe 1 est modifié. 


Vecteurs sautant : BBEAH (PLOT), BBEDH (PLOTR). 
Restauré par : BBBDH (GRESET). 


Saut à l'adresse : 182AH (464) ; 1796H (664) ; 179AH (6128). 

Effet : Teste le point de coordonnées DE et HL. En sortie, A 
contient l'encre du point et le groupe 1 est modifié. 

Vecteurs sautant : BBFOH (TEST), BBF3H (TESTR). 

Restauré par : BBBDH (GRESET). 


Saut à l'adresse : 183CH (464) ; 17BOH (664) ; 17B4H (6128). 


Effet : Trace un trait à l’écran jusqu'au point de coordonnées DE 
et HL. En sortie, le groupe 1 est modifié. 


Vecteurs sautant : BBF6H (DRAW), BBF9H (DRAWR). 
Restauré par : BBBDH (GRESET). 


Saut à l'adresse : C82H (464) ; C86H (664) ; C8AH (6128). 


Effet : Donne dans A l’encre du point dont l’octet a pour adresse 
HL et dont le masque se trouve dans C. 


Vecteur sautant : Indirection BDDFH. 
Restauré par : BCO2H (SRESET). 
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Saut à l'adresse : C68H (464) ; C6DH (664) ; C71H (6128). 

Effet : Écrit un point à l’adresse écran HL, ayant pour masque C 
et pour masque d'encre B. En sortie, AF est modifié. 

Vecteurs sautant : Indirections BDDCH et BDE2H. 

Restauré par : BCO2H (SRESET). 


Saut à l'adresse : AF7H (464) ; B13H (664) ; B17H (6128). 
Effet : Vide l’écran. En sortie, le groupe 1 est modifié. 
Vecteur appelant : BCOEH (MODE). 

Restauré par : BCO2H (SRESET). 


Saut à l'adresse : 1C2FH (464) ; 1DB8H (664 et 6128). 
Effet : Teste si la touche ESC est enfoncée. 

Vecteur appelant : Test général des touches. 

Restauré par : BBO3H (CRESET). 


Saut à l'adresse : 7F8H (464) : 825H (664) ; 835H (6128). 


Effet : Envoie le caractère contenu dans A vers l'imprimante. En sor- 
tie, AF et BC sont modifiés. 


Vecteur appelant : BD2BH (PRCAR). 
Restauré par : BD2H (PRRESET). 
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4. COMMUNICATIONS ENTRE BASIC 
ET ASSEMBLEUR 


M LES APPELS DU BASIC 


ROUTINES EN LANGAGE MACHINE 


L'un des grands intérêts de la programmation en assembleur, c’est 
qu’on peut ainsi accélérer ses programmes BASIC en insérant en cer- 
tains endroits des appels à des programmes assemblés. 

Ces appels se font, vous le savez, par l'instruction BASIC CALL. Le 
premier paramètre de cette instruction est, comme en assembleur, 
l'adresse où l'appel doit se faire. Lorsque le BASIC rencontre cette 
instruction, il empile une adresse de retour, puis saute à l’adresse 
qui suit le CALL. Après exécution de la routine, l’interpréteur BASIC 
continuera de réaliser le programme en cours ou, si l’appel était direct, 
reviendra au mode Ready. 

La ou les routines appelées doivent se trouver en mémoire à une 
adresse déterminée ; cette adresse (que pour éviter toute erreur on 
choisira généralement simple comme 8000H, par exemple) doit être 
supérieure à la valeur HIMEM du BASIC, faute de quoi la routine ris- 
que d’être détruite par des variables ou des lignes du programme ; 
n'oubliez pas que cette limite HIMEM a précisément été conçue dans 
ce but. De toute façon, l’interpréteur BASIC n'acceptera pas de char- 
ger en mémoire une routine en langage machine d'adresse inférieure 
à HIMEM. 

L'utilisation de routines en langage machine est très commode pour 
toutes sortes d'instructions répétitives qui seraient très longues en 
BASIC. Par exemple, toutes les opérations sur la mémoire par PEEK 
et POKE sont très longues, comparativement à l’assembleur. De 
même, nombreuses sont les opérations graphiques qui gagneront à 
être réalisées en langage machine. Par contre, certains autres types 
y gagneront peu, où rien (en regard de la difficulté relativement plus 
grande de réalisation) ; calculs arithmétiques, sortie sur l'imprimante 
de caractères (n'oubliez pas que c’est l'imprimante qui est lente), voire 
routines sonores. 

En revanche, le langage machine peut vous permettre certaines cho- 
ses difficiles ou impossibles en BASIC : par exemple les opérations 
basées sur les interruptions (encres clignotant à des vitesses différen- 
tes, chronomètres, etc.) ou sur les entrées-sorties (lecture de secteur 
disque, par exemple). Le gain en vitesse n’est donc pas la seule rai- 
son susceptible de motiver un recours à l’assembleur, même si c'est 
la plus courante. 
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LES PARAMÈTRES DE CALL 


Le BASIC ne permet pas de charger les registres du Z80 avec des 
valeurs données pour l’appel d’une routine en langage machine. 
Néanmoins, vous disposez de deux possibilités qui vous permettront 
de transmettre tous les paramètres voulus à votre routine. 

Tout d’abord, l'instruction BASIC CALL est susceptible d'admettre 
des paramètres. Ces paramètres doivent se trouver derrière l'adresse 
de l’appel, séparés entre eux par des virgules comme ceci : 


CALL &8000, a%, b, 18, 3.75, ‘’Bonjour”, c$ 


Ces paramètres peuvent être de toutes sortes, mais ils sont conver- 
tis par le BASIC en nombres sur deux octets, qui peuvent être de deux 
types : 


Si la variable est un entier compris entre —- 32768 et +32767, soit 
sous forme littérale (comme la valeur 18 dans l'exemple), soit sous 
la forme du nom d’une variable entière (comme a%), c'est cette 
valeur qui est transmise. De même si la variable est réelle (b et 
3.75) : c’est l’entier le plus proche qui est transmis (4 pour 3.75), 
sauf si le réel est trop grand (le BASIC signale alors un Overflow) ; 
dans tous les cas, il s'agit bien d’une valeur sur deux octets. 


Si la variable est une chaîne (comme c$ et ‘‘Bonjour’’) c'est l'adresse 
du descripteur de chaîne qui est transmise (voir description des 
variables du BASIC au paragraphe suivant). 


Ces valeurs sont empilées quelque part ; au moment de l'accès à 
la routine, le BASIC place dans A le nombre de paramètres transmis 
(d'où une détection des erreurs aisée) et dans IX l’adresse du pre- 
mier de ces mots de deux octets. Mais attention, ce premier est celui 
qui apparaît le dernier dans la liste (c$ dans notre exemple), car ces 
nombres ont été empilés au fur et à mesure par le BASIC. Hormis 
cette précaution à prendre, vous n'aurez pas de difficulté à récupé- 
rer vos paramètres (nous en verrons des exemples). 

Connaître l'adresse de la variable est extrêmement commode, pour 
y stocker le résultat de votre routine, par exemple. Cela est fait auto- 
matiquement pour une chaîne. Pour un entier ou un réel, il vous fau- 
dra utiliser le pointeur de variable @ (touche à droite de P), ressource 
étonnante du BASIC Amstrad. En effet ce pointeur permet d'obtenir 


= 54 


l'adresse où sont stockées les variables. Ainsi PRINT @X n'’affichera 
pas la valeur de X, mais bien l'adresse de stockage dans la mémoire 
(voir paragraphe suivant) de cette variable. Connaissant cette adresse 
et le type de la variable, rien n’est plus simple que de la modifier. 
Nous allons examiner à présent comment les variables sont stockées 
en mémoire et le rapport avec le pointeur de variable @. Rappelons 
simplement que, pour les chaînes X$, le paramètre de CALL, même 
écrit X$, est de toute façon @Xf. 


B LES VARIABLES DU BASIC 


Comme nous l’avons vu au paragraphe précédent, il est très utile 
de savoir comment les variables sont stockées en mémoire par le 
BASIC, ce afin de pouvoir les modifier ou les lire ; il faut aussi savoir 
exactement sur quelle valeur pointe le pointeur de variable @. 

Les variables BASIC sont stockées les unes après les autres après 
le programme (en général). Dans tous les cas, on trouve d’abord le 
nom de la variable (dont le bit 7 du dernier caractère est mis). Ce 
qui suit est expliqué à présent : 


VARIABLE ENTIÈRE 


C'est la plus simple : après le nom, on trouve la longueur de cette 
variable en octets, soit 2, puis les deux octets donnant la valeur de 
l’entier (inversés comme toujours). Le pointeur de variable pour un 
entier donne l'adresse des deux octets en question (et non du nom...). 


VARIABLE RÉELLE 


Plus complexes, les réels ; le début est le même : après le nom, 
on trouve la longueur de la variable (5), puis les cinq octets de la 
variable proprement dits (sur lesquels pointe le pointeur @). C'est 
la valeur de ces cinq octets qui est plus mystérieuse. Supposons que 
IX pointe sur ce premier octet, comme le pointeur de variable @. 
Dès lors : 


e Si (IX+4) est nul, le réel vaut O (les 4 autres octets n’ont pas 
d'influence dans ce cas). 
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Le bit 7 de (IX+3) donne le signe du réel : 0 =positif, 1 =négatif. 


e_(IX+4) moins 80H représente la puissance de 2 qui suit le réel, soit 
1+ le logarithme en base 2 du réel. Donc si c’est un nombre posi- 
tif, c'est le nombre de chiffres précédant la virgule dans la repré- 
sentation binaire du réel. Si c'est un nombre négatif où nul, sa valeur 
absolue est le nombre de zéros compris entre la virgule et le pre- 
mier 1 dans cette même représentation (voir exemples). 


e_(IX+0), puis (IX+1), puis (IX+2) et enfin les sept derniers bits de 
(IX+ 3) contiennent tous les bits de la représentation binaire du réel 
qui suivent le premier 1, celui-là non compris. Ainsi : 


10 se code 00 00 00 02 84 car : 
10 s'écrit en binaire 1010. Cela fait quatre chiffres, donc (IX +4) 
— 80H +4-84H. On ne tient pas compte du premier 1 et l’on obtient 
alors les 31 bits : 00000000 00000000 00000000 50000010. s (bit de 
signe) vaut O car 10 est positif. Donc on obtient bien les valeurs 00 
00 00 02 en hexadécimal. 


—0.5 se code 00 00 00 80 80 car : 
0.5 (1/2) s'écrit en binaire 0.1. Cela ne fait aucun chiffre devant la 
virgule : on compte donc le nombre de zéros qui la suivent immé- 
diatement : il y en a 0. Donc (IX +4) =80H - 0 = 80H. On ne tient pas 
compte du premier 1: il reste 00000000 00000000 00000000 
s0000000, ici s=1 (nombre négatif). On obtient donc 00 00 00 80 
pour les quatre premiers octets. 


7188.25 se code 00 00 60 29 8D car: 
7188.25 (7188 + 1/4) s'écrit en binaire 1110000001010.01. Il y a 13 
chiffres devant la virgule donc (IX + 4) = 80H +13 =8DH. Puis on ôte 
le premier 1, il reste 00000000 00000000 01100000 50101001. Ici s=0 
(nombre positif). Cela donne bien 00 00 60 29. 


LES CHAÎNES ALPHANUMÉRIQUES 


Pour une chaîne, on trouve après son nom le nombre 3, puis un 
descripteur de chaîne de trois octets sur lequel pointe le pointeur 
de variables @. Ces trois octets sont le nombre de caractères de la 
chaîne (codé sur un octet) puis l'adresse de la chaîne proprement 
dite (sur deux octets). 


= Se 


Les chaînes elles-mêmes sont stockées en haut de mémoire, dans 
le sens descendant inverse des variables. 


LES MATRICES 


Après le nom de la matrice (ou tableau, où arrangement) vient le 
type des variables du tableau (1 =entier, 2=chaîne, 4=réel, qui est 
aussi leur longueur moins 1) sur un octet, puis le nombre qu'il faut 
additionner à l'adresse courante pour trouver la variable suivante (sur 
deux octets), puis le nombre d'indices du tableau (sur un octet), puis 
les nombres de valeurs possibles pour chaque indice, dans l’ordre 
(et en comptant les valeurs 0), enfin les variables elles-mêmes, les 
unes après les autres. Pour les chaînes, ce sont les descripteurs de 
chaînes qui sont à cet endroit. 

Le pointeur de variable @ ne peut être utilisé pour une matrice, 
mais il peut l'être pour n'importe lequel de ses éléments. Ainsi 
CALL &8000, @MAT(0,0) donnera à la routine l'adresse de MAT(0,0), 
donc des autres éléments qui le suivent. Par exemple : après un DIM 
MAT(6, 14), on trouvera en mémoire, si AD est l’adresse du nom (tou- 
tes les valeurs des octets en hexadécimal) : 


AD +0=4D ; AD+1=48 ; AD+2=C4, soit ‘M’, ‘‘A’' et 
“T''+80H. 
AD +3=04 : variables réelles (longueur 4+1). 


AD +4=6F ; AD+5=00 : caril faut ajouter 111 (006FH) à AD +4 
pour trouver la variabie suivante en AD +115. 


AD +6 = 02 : deux indices. 


AD+7=07 ; AD+8=0F : le premier indice a sept valeurs possi- 
bles (de 0 à 6), le second quinze (de O0 à 14). 


AD +9 à AD+14 : valeur de MAT(0,0) (réel sur cinq octets). 
AD +15 à AD +20 : valeur de MAT(0,1). 

.… etc. 

AD +109 à AD+114 : valeur de MAT(6,14). 

AD +115 : nom de la variable suivante... 


Ici, @MAT(0,0) donnerait AD +9. 
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B LES EXTENSIONS D’INSTRUCTION 


Les RSX (Resident System Extension), ou extensions d'instruction, 
sont l’un des meilleurs atouts d’un BASIC bien conçu. Elles permet- 
tent en effet au programmeur de BASIC et d’assembleur d'exercer 
ses talents dans les deux langages, en créant en assembleur des rou- 
tines qui pourront être utilisées en BASIC sous la forme d'instructions. 

Il s'agit en effet d'ajouter des instructions supplémentaires au BASIC. 
Celui-ci est déjà fort complet, mais rares sont les programmeurs assez 
sages pour s'en contenter... 

De fait, ces RSX peuvent s'avérer très utiles. C’est singulièrement 
le cas des RSX graphiques, qui accélèrent bien souvent le déroule- 
ment des programmes. Ainsi cercles, étoiles, etc., sont généralement 
très lents en BASIC, d’où l'intérêt du langage machine. Naturellement, 
il existe d’autres possibilités d'applications. 


UTILISATION DES RSX EN BASIC 


La RSX se différencie assez peu d’une simple routine appelée par 
l'instruction BASIC CALL, mais on y aura recours dans certains cas 
bien définis : si la routine est utilisée fréquemment, si elle est utilisée 
en mode direct (car il est pénible de taper CALL &8000, …, et aven- 
tureux : risque d'erreur sur l'adresse), et surtout si elle est générale, 
c'est-à-dire si elle est susceptible d’être utilisée dans différents pro- 
grammes (cas du cercle, etc.). 

Dans une RSX, on remplace donc l'adresse de la routine qui est 
un nombre (d'où mémorisation difficile, risque d'erreur, etc.) par un 
nom. Le risque d'erreur est ainsi considérablement réduit : si vous 
orthographiez mal le nom, il y a de fortes chances pour que vous 
receviez le message Unknown command et, au pire, que vous exé- 
cutiez une mauvaise commande. Par contre si vous vous trompez 
dans l'adresse (&800 au lieu de &8000...), le BASIC ne protestera en 
général pas et l’adresse appelée fera ‘‘planter’’ l'ordinateur quatre 
fois sur cinq. 

Pour signifier au BASIC qu'il s'agit d’une RSX et éviter le terrible 
Syntax error, on fait précéder le nom de l'instruction par une barre 
verticale (|) obtenue en pressant simultanément sur (SHIFT) et @ (tou- 
che à droite de P). Derrière le nom de l'instruction, séparés de celui- 
ci et entre eux par des virgules, on place les paramètres de l’instruc- 
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tion, comme pour un CALL de BASIC normal. Ainsi, par exemple, 
CALL &8000, 320, 200, 150 sera remplacé par /CERCLE, 320, 200, 150. 

D'ailleurs, les utilisateurs d’Amstrad dotés d'unités de disquette con- 
naissent déjà bien les RSX : /A, /ERA, ‘fichier’’, etc. sont autant de 
RSX dues au DOS. 


UTILISATION DES RSX EN ASSEMBLEUR 


En assembleur, une RSX est équivalente d’un CALL : après avoir 
reconnu dans une liste le nom d’une instruction, le système passe 
à cette routine. L'adresse de retour au BASIC a été préalablement 
empilée. 

Pour ce qui est des paramètres, même chose également : nombre 
des paramètres dans À, paramètres ou adresses empilés et pointés 
par IX. 


INITIALISATION DES RSX 


Naturellement le système ne connaît l'existence que des RSX qu’on 
lui signale. || faut donc initialiser les RSX avant de les utiliser. 

Cela se fait assez facilement, à l’aide la routine INTRSX (BCD1H). 
Pour initialiser une ou plusieurs RSX, voici comment faire : 

Placer dans HL l'adresse d’une table de stock de 4 octets libres dont 
le système aura besoin ; placer dans BC l'adresse d’une table de com- 
mandes organisée comme suit : adresse des noms/ saut à l’adresse 
de la première routine/ saut à l'adresse de la deuxième, etc. L'adresse 
des noms (2 octets) est l’adresse du premier caractère du nom de 
la première instruction ; les autres caractères doivent suivre, le der- 
nier étant marqué par un bit 7 à 1 (+80H), puis les noms des autres 
instructions (s’il y a lieu). L'adresse des noms est suivie des sauts aux 
adresses des routines, dans l’ordre. La table des noms peut contenir 
autant de RSX que l’on veut. Elle se termine par un octet à zéro. 

Après chargement des registres BC et HL avec ces deux adresses, 
il ne reste plus qu’à passer à la routine INTRSX. Au retour de celle- 
ci, les RSX sont initialisés. 

En pratique il sera commode de placer l’initialisation en tête de la 
routine et de sauvegarder le fichier assemblé globalement. Dès lors, 
il suffira, au lieu de charger simplement le fichier par LOAD, comme 
pour une routine appelée par un CALL, de la charger par RUN : l'ini- 
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tialisation suivra immédiatement le chargement de la RSX, sans com- 
pliquer vos programmes. 


RECHERCHE DES RSX 


Une autre possibilité très intéressante offerte par le système est la 
recherche d’une RSX. En effet les noms des RSX ne sont pas stockés 
dans des tables : plutôt que de les rechercher vous-même, laissez ce 
soin au système : la routine FINDRSX (BCD4H) vous permettra de 
la trouver sans difficulté : il suffit de placer dans HL l'adresse du nom 
de la RSX à trouver (le dernier caractère de ce nom doit avoir son 
bit 7 mis) ; en retour, vous aurez dans HL l'adresse de la routine de 
la RSX et dans C l’octet de sélection des ROM : il ne vous reste plus 
qu’à faire un /P (HL) si l'adresse est en RAM, sinon il n’y a qu’à stoc- 
ker l’adresse puis l’octet de sélection dans une table, puis à faire un 
RST 18H (suivi de DEFW TABLE) qui amènera à la routine. S'il y a 
des paramètres, imitez le BASIC : stockez-les (si ce sont des chaînes 
ou des variables dont les adresses doivent être données, stockez ces 
adresses) dans l’ordre (en les empilant, donc par emplacements 
d'adresses décroissantes), puis donnez l'adresse du dernier stocké 
dans IX et le nombre de paramètres dans A : c'est tout. 

L'intérêt vient de ce qu'il est inutile ainsi de chercher fébrilement 
la table des adresses des instructions du DOS, par exemple (USER, 
REN, etc.). Il suffit de savoir leur nom ; en outre, il n’est plus néces- 
saire de connaître l’octet de sélection de la ROM du DOS. Cela vaut 
aussi pour toute autre ROM secondaire, évidemment. 

Notons qu'il n’est pas nécessaire d'appeler plusieurs fois FINDRSX 
si vous utilisez la RSX à plusieurs reprises. Il suffit de l’appeler une 
seule fois, puis de stocker dans une table les trois octets comme il 
a été dit précédemment. À chaque appel de la routine, un RST 18H/ 
DEFW TABLE de la même longueur qu'un CALL (contre toute appa- 
rence) suffira alors. 
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5. OPTIMISATION ET PROGRAMMATION 


B OPTIMISATION 


L'assembleur a deux avantages principaux : ses programmes sont 
notablement plus rapides qu'avec le BASIC, et même qu'avec ceux 
des langages compilés comme le Pascal, et ils prennent généralement 
moins de place que ces derniers. 

Optimiser un programme consiste à tenter de tirer un profit maxi- 
mal de ces deux avantages. Mais comme il y a deux avantages, il y 
a aussi deux optimisations possibles : l'optimisation en durée, et l’op- 
timisation en longueur. La première consiste à rendre l'exécution du 
programme la plus rapide possible, la seconde à limiter au maximum 
l'encombrement en mémoire de ce programme. 

On serait tenté de croire que, si un programme est optimisé en lon- 
gueur, possédant moins d'instructions à exécuter, il sera aussi plus 
rapide. Tel n’est, hélas, pas toujours le cas. Nous en verrons de nom- 
breux exemples. Il faudra donc bien souvent faire un choix ou trou- 
ver un juste milieu. 


OPTIMISATION EN DURÉE 


Ce type d'optimisation sera préféré dans les programmes soit natu- 
rellement courts (et donc où le gain d'optimisation en longueur serait 
faible), soit d'utilisation très fréquente (en particulier dans les bou- 
cles, où l’on préférera une longueur un peu plus grande pour un peu 
plus de rapidité), soit évidemment exigeant une grande rapidité (cas 
par exemple des jeux de réflexes, où il est préférable que la machine 
réagisse plus vite que le joueur, mais aussi des événements tempori- 
sés dont la durée doit obligatoirement être limitée, faute de planter 
la machine). : 

L'optimisation en durée sera réalisée en utilisant les instructions les 
plus rapides : vous serez aidé par l'Annexe A sur ce point. Mais il 
existe d’autres moyens d'accélérer vos programmes. Citons 
notamment : 


e Calculer sur des entiers, ce qui est toujours plus rapide que sur 
des réels. Évitez en particulier les calculs de cosinus, tangentes et 
autres exponentielles ou puissances, calculs de polynômes très 
longs. 
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Limiter l’usage des routines du système, introduites par des res- 
tarts dont la durée n’est pas très brève. Si vous avez la possibilité 
de laisser la ROM inférieure branchée, changez ces restarts en 
jumps. Vous pouvez également réécrire tout ou partie de ces rou- 
tines ; certaines, notamment les lectures de variables système, sont 
de simples chargements comme LD HL,(nn). Notez qu’en contre- 
partie vous perdez la compatibilité entre les Amstrad. 


Remplacer les JR par des JP. Ces derniers en effet prennent un octet 
de plus mais leur exécution est moins longue. 


Utiliser le moins de CALL possible. Pour des appels à des routines 
courtes, préférez recopier plusieurs fois la routine afin d'éviter les 
CALL. 


Réécrire partiellement ou totalement certaines routines de sorties 
vers l’écran (ou d’ailleurs vers d’autres périphériques) afin de les 
adapter à votre cas. Par exemple, la sortie d’un caractère en mode 2 
est très simple : il suffit de placer directement dans la RAM écran 
les huit octets de la matrice caractère (dont l'adresse est donnée 
par MATADR en BBA5H) à des adresses différant de 800H (diffé- 
rence entre deux lignes). La routine correspondante est très sim- 
ple, contrairement à celle de la sortie en mode 1 ou 0, bien plus 
complexe. 


Liste évidemment non exhaustive... Voyez notamment les solutions 
particulières adoptées pour les programmes de ce livre. 


OPTIMISATION EN LONGUEUR 


Ce type d'optimisation sera préféré dans les programmes longs qui 
utilisent de surcroît beaucoup de place en mémoire (présence de 
tableaux, de fichiers complexes) et dont la rapidité est suffisante (jeux 
de réflexion, programmes de gestion de tableaux, etc.). 

Cette optimisation peut être également obtenue de diverses façons, 
dont malheureusement beaucoup sont la négation de celles du para- 
graphe précédent permettant une optimisation en longueur. Citons : 


e Utiliser des instructions les plus courtes possible en s’aidant de l’An- 
nexe À. Certaines sont d’intéressants raccourcis : DJNZ, LDIR, etc. 
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e Préférer un saut relatif à un saut absolu dès que possible. Si cela 
ne l’est pas, vérifiez que vous ne pouvez pas rapprocher les deux 
extrémités du saut pour remplacer le JP par un JR. Pour cette même 
raison, on évitera les tests basés sur les flags s et p/v qui ne peu- 
vent être testés par JR. 


e Utiliser le plus possible de subroutines. Lisez avec soin votre pro- 
gramme, et transformez toute séquence répétée de quatre octets 
ou plus en une subroutine séparée. Utilisez au maximum les rou- 
tines déjà présentes en mémoire : les routines système, bien 
entendu, mais aussi celles de votre programme (vérifiez que vous 
ne pouvez pas transformer en une seule routine deux actes dis- 
tincts mais peu différents). 


On notera la contradiction entre ces deux paragraphes. La synthèse 
pour les programmes généraux sera faite plus loin. Notez toutefois 
qu'ici encore la liste n’est pas exhaustive, et aussi que des solutions 
particulières nombreuses se trouvent dans les programmes de ce livre. 


ACTES ÉLÉMENTAIRES OPTIMISÉS 


Il est des actes très brefs qui sont très fréquemment utilisés dans 
tous les programmes, par exemple doubler HL ou l’augmenter d'une 
valeur n. Pour certains de ces actes, il existe plusieurs possibilités, 
et parmi elles il n’en existe qu’une en général qui soit optimale, soit 
en longueur, soit en durée. Cette solution optimale est donnée dans 
la suite pour quelques actes courants. On n'a pas redonné chaque 
fois la ou les mauvaises solutions. Pour les actes dépendants d'un 
paramètre, il arrive qu'il y ait plusieurs solutions, selon la valeur du 
paramètre ; dans ce cas, on les a données toutes, en précisant pour 
quelles valeurs du paramètre elles étaient optimales en durée ou en 
longueur. 

Les notations sont les suivantes : dd désigne un registre double (BC, 
DE ou HL) et d, son octet fort (B, D ou H), d l’autre (C, E ou L); 
nn est une adresse sur deux octets, n un nombre sur un seul octet. 
IX désigne aussi bien IX que IY (instructions équivalentes). L'acte est 
l’action à réaliser, la séquence est la suite d'instructions optimale. 
La durée de celle-ci est calculée en temps machine (valant un quart 
de microseconde) et sa longueur en octets. 
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Enfin, on a supposé que tous les registres non concernés par l'acte 
devaient être conservés (sauf mention : registre libre), à l'exception 
de AF, librement modifié. 
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LISTE D’ACTES ELEMENTAIRES OPTIMAUX 


Tester si dd =0 (en positionnant le flag z) 
Séquence : LD A,d,/ OR d, 
Durée : 8 
Longueur : 2 


Mettre dd à 0 


Séquence : LD dd,0. 
Durée : 10 
Longueur : 3 


Mettre dd et À à 0 


Séquence : XOR A/ LD d,,A/ LD d,A. 
Durée : 12 
Longueur : 3 


Doubler dd 


Séquence : si dd=HL : ADD HL,HL., sinon : SLA d /RL d,. 

Durée : 11 pour HL, 16 sinon. 

Longueur : 1 pour HL, 2 sinon. 

Remarque : La retenue est positionnée en fonction du dépassement, 
dans les deux cas. 


Échanger dd et IX 


Séquence : PUSH dd/ EX (SP),IX/ POP dd. 
Durée : 44 
Longueur : 4 


Ajouter la valeur n à HL, le registre dd étant libre 


Séquences : (a) : INC HE, n fois. 
(b) : LD dd,n/ ADD HL,dd. 


_ 66 — 


Durée : (a) : 6*n (meilleure si n < 4), (b) : 21 (meilleure si n > 3). 
Longueur : (a) : n (idem), (b) : 4 (idem). 


Ajouter la valeur n à HL, BC et DE étant occupés 


Séquences : (a) : comme ci-dessus. 

(b) : PUSH BC/ LD BC,n/ ADD HL,BC/ POP BC. 
Durée : (a) : 6*n (meilleure si n <7), (b) : 42 (meilleure si n > 6). 
Longueur : (a) : n (idem), (b) : 6 (idem). 


Mettre à zéro les B octets d’adresses HL et suite 


Séquences : (a): XOR A/BOUCLE: LD (HL),A/ INC HL/ DINZ 
BOUCLE. 
(b) : PUSH DE/XOR A/ LD CB/ LD B,A/ LD D H/ LD E L/INC DE/ 
LD (HL),A/ LDIR/ POP DE. 

Durée : (a) : 23*B+28 (meilleure si B < 22), (b) : 21*B+70 (meil- 
leure si B>21). 

Longueur : (a) : 5, toujours meilleure ((b) : 11). 

Remarque : Pour comprendre (b), voir l’acte suivant. 


Mettre à zéro les BC registres d’adresses HL et suite (BC grand) 


Séquence : PUSH DE/ LD D,H/ LD E,L/ INC DE/ LD (HL),0/ LDIR/ 
POP DE. 

Durée : 21*BC+61 

Longueur : 9 

Remarque 1 : Cela ne vous paraît peut-être pas très clair ? De fait, 
c'est une astuce très artificielle : HL pointe sur le début de la zone 
à vider, DE juste sur l’octet suivant (DE=HL+1). On met 0 dans 
(HL). Dès lors, si l’on fait un LDI, le zéro est reporté sur l’octet 
suivant, et HL et DE sont incrémentés : à ce moment HL pointe 
sur l’ancienne valeur de DE, mise à zéro, et DE sur l’octet sui- 
vant : il ne reste qu’à poursuivre, d'où le LDIR. Cette méthode 
permet un vidage d'écran très rapide (86 millisecondes pour 
16K !) 

Remarque 2 : En faisant LD (HL),n, on peut ainsi remplir toute une 
zone mémoire avec n'importe quel octet. 


267" 


Charger BC, DE et HL avec (IX +0), (IX +1), …, (IX+5) 
(avec deux octets libres en nn et nn +1) 


Séquence : LD (nn),SP/ LD SP,IX/ POP BC/ POP DE/ POP HL/ 
LD SP,(nn). 

Durée : 80 

Longueur : 13 


Remarque : Méthode bien meilleure que le simple chargement 
LD C,(X+0)/ LD B,(IX+1)/ … (durée 114 et longueur 18). Très 
utile pour récupérer les paramètres d’un CALL du BASIC ou d'une 
RSX. 


Charger une table avec (IX +0), (IX+ 1), …, (IX+n) 


Séquences : (a) : LD A,(IX+0)/ LD (TABLE +0),A/ ../LD A,(X+n)/ 
LD (TABLE +n),A. 
(b) : PUSH BC/ PUSH DE/ PUSH IX/ EX (SP), HL/ LD BCn+1/ 
LD DE,TABLE/ LDIR/ POP HL/ POP DE/ POP BC. 

Durée : (a): 32*(n+1) (meilleure si n<9), (b): 21+*n+122 
(meilleure si n > 8). 

Longueur : (a) : 6*x(n+1) (meilleure si n < 2), (b) : 16 (meilleure si 
n>l). 

Remarque : La deuxième séquence a l’avantage de pouvoir accepter 
une longueur variable facilement (en faisant LD BC,(LONGUEUR) 
par exemple), d'où possibilité d'usage en subroutine, etc. 


Ici encore, cette liste n’est nullement exhaustive. Je vous incite à 
l'utiliser, et même à la compléter le plus largement possible. Notez 
que certains de ces actes sont utilisés dans les programmes de cet 
ouvrage. 


BH PROGRAMMATION 


Avant de passer aux exemples pratiques, nous allons définir ici quel- 
ques principes simples de programmation, applicables à la quasi- 
totalité des programmes en assembleur. 
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RAPPORTS AVEC L’ASSEMBLEUR 


Quel que soit l’assembleur dont vous disposez, il est important d'en 
utiliser à fond les possibilités, même celles qui ne sont pas d'usage 
obligatoire. 

En premier lieu les labels sont d’une utilité fondamentale échap- 
pant parfois au programmeur d’assembleur débutant, qui se limite 
forcément à de très courts programmes. En fait, l'emploi de labels 
et d'étiquettes doit être quasi systématique dans tout programme (s’il 
est destiné à être conservé), même si ce label ou cette étiquette ne 
sont utilisés qu'une fois. Pour les étiquettes, tout d’abord, la raison 
en est double : d’abord, cela évite d'avoir à réécrire plusieurs fois 
le même nombre hexadécimal (ce qui est à la fois pénible et péril- 
leux) soit parce que l'étiquette intervient plusieurs fois, soit parce que 
dans un développement futur du programme vous pourriez avoir à 
réutiliser cette étiquette ; ensuite cela rend le programme notable- 
ment plus clair. Cette seconde raison est également valable pour les 
labels. Ajoutons pour ces derniers qu'une instruction comme JR +17 
est tout à la fois une imprudence et une sottise : imprudence, car 
si vous vous trompez dans votre compte, tout est perdu ; sottise, car 
si vous venez à insérer un ordre supplémentaire, comme cela est fré- 
quent, même en admettant que vous y pensiez vous serez obligé de 
changer le paramètre aussi, ce qui est une perte de temps totalement 
inutile : n'oubliez pas que l’Assembleur, lui, met seulement quelques 
centièmes de milliseconde à faire le calcul de cette différence. 

Donc, mieux vaut utiliser au maximum les symboles de votre Assem- 
bleur. Vous n’y perdrez jamais. La seule petite difficulté susceptible 
d'intervenir est l’utilisation du même label plusieurs fois. Pour éviter 
cet inconvénient, je vous recommande primo d'utiliser pour les rou- 
tines système toujours les mêmes étiquettes, par exemple celles que 
je donne au Chapitre 8 (elles sont prévues pour cet usage et sont toutes 
distinctes) ; secundo d'éviter les étiquettes trop banales comme 
BOUCLE et SUITE, ou alors de les faire suivre soit d’un numéro 
(BOUCLE, .….), soit de la désignation du sous-programme où elles 
se trouvent (BCLEROUT, ...). Si vous en prenez l'habitude, ces peti- 
tes opérations sur les labels se feront sans effort, et vous pourrez sans 
problème étiqueter tout un programme même de grande taille, ce 
qui, sans méthode, s'apparente à un exercice de haute voltige. 

Second usage essentiel de l’assembleur : les commentaires. Rap- 
pelons qu'après l'étiquette éventuelle et l'instruction de la ligne vous 
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pouvez ajouter un commentaire, séparé de l’ordre par un point- 
virgule. Ce commentaire (c'est-à-dire tous les caractères compris entre 
le point-virgule et la fin de la ligne) est purement et simplement ignoré 
au moment de l’assemblage. Contrairement à un REM du BASIC, il 
n’allonge en rien le programme assemblé et ne modifie nullement 
son exécution : il n’y a donc pas de raison de s’en priver. Ce serait 
là un mauvais calcul, car rien ne prouve que vous ne souhaiterez 
pas, dans quelques semaines, modifier à nouveau votre programme : 
les commentaires vous permettront alors de vous y retrouver. 

Naturellement, il serait excessif de mettre un commentaire à cha- 
que ligne ; on ne l’a fait dans le présent ouvrage que pour faciliter 
la compréhension des programmes au lecteur, mais celui-ci n’est nul- 
lement tenu de les recopier (ce serait inutile, s’il conserve le livre). 

Néanmoins, même si vous mettez peu de commentaires, choisissez- 
les bien. Ceci : LD B,0 ; METTRE B A ZERO est inutile, car on ne voit 
vraiment pas en quoi le commentaire éclaire l'instruction ! En revan- 
che, ceci : LD B,0 ;INITIALISER LE COMPTEUR est bien meilleur car 
le commentaire ici n’eét pas redondant avec l'instruction : il lui donne 
un sens particulier. Tout cela peut paraître évident, mais il n’en est 
pas moins vrai que nombreux sont les programmes en assembleur 
dont les commentaires sont si mal faits qu’on ne comprend rien de 
la volonté du programmeur, même dans ceux qui, par ailleurs, sont 
excellents. 


ORGANISATION DU PROGRAMME SOURCE 


A l'intérieur du programme source (version non assemblée), il existe 
toujours différents groupes dont le classement est important. Cha- 
cun a sur ce point ses idées plus ou moins arrêtées. Je vais ici donner 
les miennes, celles avec lesquelles j'ai écrit les programmes de ce 
livre, ainsi que les arguments qui les soutiennent. 

En premier lieu, il est naturel de mettre une présentation. Celle-ci, 
plus ou moins sophistiquée, a surtout pour but de vous aider, lors 
d'une lecture ultérieure du programme, à vous en rappeler les modes 
d'utilisation et même l'usage, le nom n’y suffisant pas toujours (sur- 
tout sur disquette). Cette présentation, constituée de lignes de com- 
mentaires, peut indifféremment précéder ou suivre le pseudo- 
opérateur ORG (en général obligatoire). 

J'ai également l'habitude de faire suivre cette présentation de tou- 
tes les définitions d'étiquettes nécessaires. Bien sûr, en théorie, on 
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pourait semer ces définitions dans le programme, au fur et à mesure 
qu'on en a l’usage. Mais cela rend le programme très confus et de 
plus, si vous avez plus tard besoin de cette étiquette plus haut, vous 
serez obligé d’en réécrire la définition. Donc il vaut mieux les grou- 
per au début. Toutefois, lorsqu'un programme est très nettement 
scindé en plusieurs parties (cas par exemple des RSX, où l’on distin- 
gue l’initialisation de la RSX de son exécution), il peut être plus clair 
de séparer les étiquettes (si elles ne se recoupent pas). 

Il reste encore, hormis le groupe des instructions proprement dites, 
un groupe fréquemment présent, constitué des données nécessaires 
au programme, des chaînes alphanumériques (messages divers) et 
des emplacements libres pour stocker des variables. Ce groupe peut 
soit précéder, soit suivre les instructions. Dans le second cas, la lisi- 
bilité du programme en souffre (obligation de se reporter à la fin) et 
l’on risque d’avoir des chevauchements inattendus avec d’autres pro- 
grammes. Dans le premier, le point d'entrée du programme ne coïn- 
cidera plus avec son adresse de chargement (et sera de plus inconnu 
avec DAMS) ; c’est sans importance pour une RSX, mais gênant pour 
les programmes appelés par un CALL du BASIC ; toutefois, pour remé- 
dier à ce dernier inconvénient, on peut placer en tête des données 
un saut au point d'entrée : c’est la solution choisie pour DAMS et 
ZEN par leurs concepteurs ainsi que pour l'annuaire du Chapitre 7. 

Vous pouvez très bien adopter d’autres points de vue sur ces pro- 
blèmes : c’est généralement peu important en soi. Ce qui l’est, par 
contre, c'est de conserver toujours la même organisation ; cela vous 
permettra de relire facilement vos programmes et surtout d'éviter des 
attitudes contradictoires dans l'élaboration d’un même programme. 


ORGANISATION PAR STRATES DES PROGRAMMES 


Nous allons à présent parler de l’organisation du programme tel 
qu'il sera après assemblage (même si cette organisation s'exécute évi- 
demment sur le programme source). 

Il'est très important de comprendre l'utilité des strates dans un pro- 
gramme, c'est-à-dire d’une sorte de hiérarchisation des différentes 
parties qui le composent. Cette hiérarchie est la suivante : on dira 
qu'une partie (terminée par un RET, un /P, un JR en général) est un 
sous-programme (ou une subroutine) d’une autre si elle est appelée 
par cette autre (via l'instruction CALL en général). Si deux routines 
au contraire sont liées par des sauts, elles sont de même niveau. 
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Ces notions sont absolument fondamentales, car elles sont les pre- 
miers pas que vous devez absolument réaliser avant de commencer 
à écrire un programme. Il vous faut réfléchir à ce qui sera fait : quelle 
routine sera utilisée plusieurs fois ? Par quelles autres ? Avec quels 
paramètres ? Quels devront être ses sorties (voir paragraphe suivant) ? 
Ce découpage fait, vérifiez que ne pouvez encore opérer quelques 
regroupements en subroutines. Puis entrez le programme. 

Mais pas dans n'importe quel ordre : les routines d’égale impor- 
tance doivent se trouver voisines, et les routines moins importantes 
doivent suivre les autres. Rappelez-vous en effet qu’il n'existe pas d’ap- 
pel à une adresse relative dans le Z80. Donc qu’une subroutine soit 
éloignée est sans importance. Par contre, deux routines liées par un 
saut doivent être les plus proches possible pour permettre d'utiliser 
un /R. On essaiera même de les placer l’une derrière l’autre, afin de 
supprimer totalement le saut. 

Si votre programme risque d’être un peu long, ne le tapez pas tout 
d'un coup : en cas de plantage (il est rare qu’un programme marche 
dès le premier essai) vous ne sauriez plus repérer la cause de l’er- 
reur. || vaut donc beaucoup mieux procéder par étapes : entrer 
d’abord une routine, avec ses subroutines éventuelles, la tester puis 
entrer ses routines de grade supérieur, etc., puis recommencer avec 
d’autres routines jusqu’à ce que le programme soit achevé. Si vous 
avez fait des tests chaque fois, il est peu probable que vous éprou- 
viez des surprises désagréables. 

Encore une fois ne négligez pas cette organisation : elle vous per- 
mettra de développer vos programmes beaucoup plus facilement et 
par étapes successives, ce qui est assurément la meilleure méthode, 
surtout si vous n'êtes pas très familier avec la programmation en géné- 
ral, et celle en assembleur en particulier. 


UTILISATION DES ROUTINES 


Nous en arrivons au niveau inférieur de la programmation, la base 
en quelque sorte : les routines elles-mêmes. 

Avant d'écrire une routine, prenez une feuille de papier et inscri- 
vez les subroutines appelées par votre routine, puis celles qui l’ap- 
pellent au contraire (combien y en at-il, quelles sont les différences 
au niveau de l’appel, etc.). Ce travail fait, vous pourrez en déduire 
les caractéristiques de votre routine. 


TD = 


Ces caractéristiques sont essentiellement les états d'entrée et de 
sortie de la routine. Consultez ainsi le Chapitre 8, où sont données 
toutes les routines système : pour chacune d’entre elles il est précisé 
quels sont les paramètres à lui fournir, quels sont les registres modi- 
fiés et quelles sont les valeurs de sortie (états des flags notamment). 

Ce qui vaut pour les routines système vaut aussi pour les autres. 
Donc pour chaque routine vous devrez vous demander : primo, quels 
sont les paramètres à fournir, et dans quel(s) registre(s) ; secundo, 
quels sont les registres qu'il faut conserver, ceux que l’on peut modifier 
(et dans ce cas quels sont ceux qu’il faudra alors empiler et dépiler) ; 
tertio, quels renseignements la routine doit fournir en sortie et dans 
quels registres ou flags. 

Comment exécuter ce travail ? En réfléchissant ! 

Ainsi, pour les paramètres. Il est important, dans votre routine, de 
distinguer des valeurs fixes les valeurs qui seront variables selon la 
routine appelante. Seules ces dernières devront éventuellement être 
transmises comme paramètres, c’est évident. Dès lors, une nouvelle 
question se pose : où transmettre ces paramètres ? Vous avez le choix 
entre les registres ou la mémoire et, parmi les registres, bien des pos- 
sibilités se présentent. 

Tout d’abord, cela dépend du contexte des routines appelantes. 
S'il s’agit, par exemple, de contrôler la valeur d’un code qui vient 
d'être rentré au clavier, votre routine doit admettre ce code dans A ; 
c'est là en effet qu’il se trouve habituellement après l’appel des rou- 
tines système de scrutation du clavier. 

Ensuite, cela dépend de la façon dont la routine sera exécutée. Ainsi, 
si votre routine a pour but d'écrire une chaîne alphanumérique dont 
l'adresse doit être fournie comme paramètre, il est naturel de fournir 
cette adresse dans HL, car les instructions relatives à (HL) sont glo- 
balement plus nombreuses et plus rapides que celles relatives à (DE) 
ou (BC). Par contre, si la chaîne doit en plus être écrite à un endroit 
variable, précisé lui aussi comme paramètre, le mieux est sans doute 
de mettre cette position dans HL (pour l’appel direct de LOCATE en 
entrée), puis d'écrire la chaîne après un EX DE,HL. 

Quant à la longueur de la chaîne, bien des choses sont possibles. 
Si les chaînes sont chacune utilisées une seule fois au cours du pro- 
gramme, on pourra en transmettre la longueur dans un registre (B 
en général, pour utiliser DIN) ; mais si l’une au moins est utilisée 
plusieurs fois à des endroits différents, mieux vaut en stocker la lon- 
gueur avec, soit de manière directe (le premier octet est la longueur, 
solution choisie dans l’annuaire du Chapitre 7), soit de manière indi- 
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recte (bit 7 du dernier code à un, où encore un 0 pour finir). On pour- 
rait ainsi multiplier les exemples à l'infini (il y en a déjà beaucoup 
avec les programmes de ce livre). 

Pour ce qui est des registres conservés, là encore examinez les pos- 
sibilités. Vous devez regarder si les routines appelantes ont en com- 
mun, tout au moins pour plusieurs d’entre elles, la nécessité de con- 
server tel ou tel registre lors de l’appel de votre routine. Si ce n'est 
pas le cas, ne vous cassez pas la tête : si une seule routine appelante 
doit sauver HL, par exemple, vous ferez 


PUSH HL/ CALL ROUTINE/ POP HL 


Sinon, si HL, par exemple, doit être sauvé dans deux ou trois rou- 
tines appelantes au moins, vous devrez vérifier : primo si HL est modi- 
fié par la routine (sinon, pas de problème !) ; secundo, s’il l’est, si 
vous ne pouvez pas faire autrement ; tertio si vous pouvez sauver 
HL sur la pile sans problème. Ce dernier point n’est en effet pas for- 
cément évident s’il existe plusieurs sorties dans la routine (retours 
conditionnels, etc.). Un autre problème fréquent se pose lorsqu'il faut 
conserver À mais changer F (flags mis en sortie pour indiquer des 
erreurs, etc.). Là encore, vérifiez que vous ne pouvez pas utiliser un 
autre registre pour stocker À provisoirement. 

Les états de sortie sont souvent les plus simples à gérer. Certains 
sont très usuels. Ainsi l’état de la retenue indique souvent la réussite 
ou l'échec d’une opération (voir routines système), éventuellement 
corroboré par le flag z, ou par la valeur de A. 

Ces états de sortie, et en particulier les flags, peuvent même justi- 
fier l'instauration d’une routine utilisée une seule fois. Par exemple, 
admettons que, après un INPUT, vous deviez vérifier que le code 
rentré (qui se trouve dans À) est bien un chiffre (entre O0 et 9) ou une 
virgule. Pour cela, il sera commode de créer la routine suivante : 


CP ”,°7/ SCF/ RET Z/ CP ‘‘9’+1/ RET NC/ CP ‘’0’7/ CCF/ RET 


En sortie, la retenue sera mise si le code est celui de la virgule (pre- 
mière comparaison) ou s’il est compris entre celui de O et celui de 
9, donc si la vérification est positive, sinon elle sera nulle. 

Bien sûr, si une telle vérification ne doit être exécutée qu’une fois, 
il semble superflu d'en faire une routine. Mais si vous remplacez tous 
les codes RET Z, etc., par des /R Z,ERREUR, etc., vous allez allonger 
le programme et aussi son exécution, surtout si cette vérification se 
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fait dans une boucle. Ne parlons pas de l'allongement résultant si 
le traitement d’erreur est loin et qu’il faut donc mettre des sauts abso- 
lus, ou bien si vous devez vérifier que vous avez affaire à une lettre 
(quatre comparaisons au moins), etc. 

Au total, l'instauration de cette routine, avec son état de sortie très 
simple, sera bien plus fructueuse. 


QUELQUES FAUTES A NE PAS FAIRE. CONCLUSION 


Il existe un certain nombre de fautes qui n’empêchent pas un pro- 
gramme de tourner mais qui n’en sont pas moins graves, surtout à 
répétition. Elles alourdissent les programmes ou les rendent 
incompréhensibles. 

Une hérésie fréquente se produit à la fin des subroutines, c'est l’ob- 
session du code RET final qui mène à trouver ceci : CALL PRINT/RET 
par exemple. Il faut évidemment mettre /P PRINT directement. Vous 
évitez ainsi un aller-retour totalement inutile sur la pile. 

Dans le même ordre d'idées, si dans un programme vous avez trois 
routines et que la première fait un saut sur la troisième, supprimez 
le saut et déplacez la troisième pour qu’elle soit à la suite de la pre- 
mière (qui n’aura alors plus aucun code final). 

Il'est fréquent qu’une même routine soit appelée deux fois de suite 
(saut de ligne sur l'imprimante, par exemple), et ce à plusieurs endroits 
du programme. Remplacez alors les CALL ROUTINE/ CALL ROUTINE 
par un CALL ROUTIN2, et juste avant l'entrée de votre routine pla- 
cez la ligne suivante : 


L'appel de ROUTIN2 équivaudra à deux appels de ROUTINE, et vous 
gagnerez beaucoup d'octets dans le programme. De même, il est fré- 
quent qu'une même routine, admettant un certain paramètre, soit 
appelée un grand nombre de fois avec une certaine valeur de ce para- 
mètre. Ainsi, si vous disposez d’une routine PRCHAIN qui écrit des 
chaînes alphanumériques et que l’une d’entre elles (par exemple un 
message d'erreur d'adresse ERROR) est plus courante que les autres, 
il sera fructueux de faire une sorte de routine-préfixe : 
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qui vous évitera d’avoir à faire LD HL,ERROR avant chaque appel 
de PRCHAIN en cas d'erreur. 

Ce sont là les fautes les plus fréquentes. Il serait évidemment impos- 
sible de les répertorier toutes. Les exemples du Chapitre 6 vous indi- 
queront parfois quelle erreur est à éviter dans leur cas particulier. 

Pour finir, rappelons qu'il est bien évident qu’on ne peut pas vrai- 
ment parvenir à une programmation ou à une optimisation idéale 
(il faudrait être sûr qu’elle existe !). Mais ce chapitre tenait simple- 
ment à éviter les écueils majeurs et à vous aider à prendre des habi- 
tudes qui vous permettront de programmer bien plus facilement et 
avec beaucoup moins d’erreurs. 
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6. EXEMPLES DE PROGRAMMES 


Nous allons à présent voir quelques exemples simples et courts, 
en application de ce que nous avons vu dans les chapitres précédents. 
Les programmes qui suivent ont été choisis soit pour leur intérêt pro- 
pre, soit pour leur valeur d'exemple d'application, souvent pour les 
deux. Ils sont extrêmement détaillés par de longues explications dans 
le texte et par de nombreux commentaires dans leur listing. 1| va néan- 
moins sans dire que la compréhension de chacun sera facilitée si vous 
avez la curiosité de les essayer. 

Il vous faudra pour cela les retaper intégralement, à l'exception des 
commentaires qu’il est inutile de réécrire ; cela ne vous prendra que 
quelques minutes avec un Assembleur. Ces programmes sont tous 
au point, et en principe il n’est pas possible de les planter (sauf indi- 
cation contraire). Toutefois, il est prudent de les sauver avant de les 
lancer. Vous risquez en effet de devoir tout recommencer si un plan- 
tage se produit, en particulier à cause d’une erreur de copie. Dans 
un tel cas vérifiez : primo, que vous avez rentré toutes les lignes ; 
secundo, que toutes les étiquettes et tous les labels sont exacts (y com- 
pris ceux qui suivent les sauts et les appels), ainsi que toutes les don- 
nées numériques. Si après nouvelle vérification le problème persiste, 
revoyez toutes les instructions une à une. 

Chacun de ces exemples prend un paragraphe à lui seul. Ces para- 
graphes sont décomposés en trois sous-paragraphes : le premier pré- 
sente le programme et décrit son utilisation, c'est-à-dire comment 
s'en servir une fois assemblé ; le deuxième donne le fonctionnement 
général du programme, en particulier ses structures internes ; le troi- 
sième s'attache à la description précise des routines du programme. 
Ces sous-paragraphes sont précisément classés dans l’ordre naturel 
de conception d’un programme : d’abord concevoir l'idée du pro- 
gramme, savoir ce que l’on veut en faire ; puis en imaginer la struc- 
ture interne ; enfin le réaliser, routine par routine. 


Tous ces programmes utilisent abondamment les routines système 
(décrites au Chapitre 8) afin de maintenir une compatibilité maximale 
entre les trois CPC. Néanmoins, certaines routines ont des adresses 
différentes selon les machines. Possédant un 6128, ce sont les adres- 
ses valables pour ce dernier qui sont dans le listing ; celles pour les 
464, et éventuellement pour les 664, sont indiquées sur la même ligne 
ou à la ligne suivante, dans un commentaire. 


De plus, pour les routines de l’arithmétique entière, la mention avec 
“ENTIERS’"" en commentaire signifie que vous devez charger le pro- 
gramme ‘’ENTIERS"’ avant de lancer le vôtre (il est listé en fin de cha- 
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pitre) ou, si vous préférez, retaper les routines appelées ; seuls les 
possesseurs de 464 sont dispensés de cet effort : il leur suffira d’ap- 
peler la routine système dont l'adresse est indiquée, puisque les 464 
possèdent l’arithmétique entière en ROM. 

Dans les explications des routines, les numéros entre parenthèses 
se réfèrent aux lignes correspondantes du listing. 


MB EXEMPLE DE RSX : PGCD 


PRÉSENTATION ET UTILISATION 


Ce très court programme va nous donner un exemple très simple 
de communication entre BASIC et assembleur. Son but est de calcu- 
ler le PGCD de deux entiers. Rappelons que le PGCD (Plus Grand 
Commun Diviseur) de deux nombres est l’entier le plus grand qui 
soit diviseur et de l’un et de l’autre. Ainsi, le PGCD de 4 et 6 est 2, 
car 2 divise 4 (4/2 =2, entier) et 6 (6/2=3, entier), et c’est le plus grand 
nombre qui soit dans ce cas (3 ne divise pas 4, 4 ne divise pas 6, 
etc.). Le PGCD de 7 et 9 vaut 1 (7 et 9 sont dits premiers entre eux), etc. 

Le calcul de PGCD n'est pas en soi une chose exaltante (quoiqu'il 
puisse servir dans certaines applications mathématiques, et en parti- 
culier la détermination de nombres premiers), mais il a l’avantage 
de la simplicité. Il se calcule par l'algorithme d’Euclide, exposé au 
paragraphe suivant. Pour ce qui est de l'utilisation du PGCD, voici 
comment faire. 

Soit À et B par exemple, les deux nombres dont vous voulez con- 
naître le PGCD (ce doit être des entiers, ou des réels inférieurs à 
32767). Après avoir initialisé une seule fois la RSX (en faisant CALL 
&9E00), vous devez choisir la variable où le résultat sera placé. Fai- 
tes par exemple C% =0 pour cela (une initialisation de la variable est 
nécessaire). Puis appelez le programme, comme ceci : PGCD, @C%, 
À,B. Le premier paramètre doit en effet être l'adresse du résultat (n’ou- 
bliez pas le symbole @), les deux autres, les nombres dont on veut 
calculer le PGCD (dans n'importe quel ordre). Pour voir s'afficher 
le résultat, faites PRINT C%. 

Le calcul du PGCD en langage machine est instantané, quelles que 
soient les valeurs d'entrée. 

Exemple d'utilisation : après un CALL &9E00 après l'assemblage, 
faites : 
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C% = 0: INPUT ‘Donnez un nombre:”’;A: |PGCD, @C%, À, 18: 


PRINT C% 


Cette ligne vous demandera un nombre, puis affichera le PGCD de 
ce nombre avec 18. 









FONCTIONNEMENT 

1 

2 

3 *XX*X  PGCD  *X*% 

4 3 =====ZZZZZIZIZZZ=========EEEE === 

5 

6 

7 ORG  9EGSH 

8 LOAD 9EG9H 

9 

19 

11 ROMS : EQU GB99SGH 

12 INTRSX: EQU GBCD1H 

13 MOD: EQU GA56CH ; AVEC "ENTIERS" 

14 ;, 464: MOD: EQU GBDBBH 

15 

16 ; INTEGRATION DE L’EXTENSION. 

17 

18 9E09 G1099E LD BC, RSX 

19 9ED3 21139E LD HL, NOYAU 

29 9ES6 C3D1BC JP INTRSX ; INTEGRER L'’EXTENSION 
21 9E99 @E9E RSX: DEFW NOM ; EMPLACEMENT DU NOM 
22 9ESB C3179E JP PGCD ; ADRESSE D’ EXECUTION 
23 9ESE 594743 NOM: DEFB “PGC" 
24 9E11 C4 DEFB “D''+3@H ; DERN. LETTRE, BIT7=1 
25 9E12 99 DEFB @ ; DERNIER NOM. 
26 NOYAU: DEFS 4 ; PLACE POUR NOYAU 
27 

28 

29 9E17 FEO3 PGCD: CP 3 ; TROIS PARAMETRES? 
3 9E19 2922 JR NZ, ERREUR ; NON, "SYNTAX ERROR" 
31 9E1B DD6E09 LD L, (IX+@) 

32 9E1E DD6691 LD H,(IX+1) ; PREMIER NOMBRE 

33 9E21 DD5EQ2 LD E, (IX+2) 

34 9E24 DD5693 LD D,(IX+3) ; DEUXIEME NOMBRE 

35 9E27 DD4ES4 LD C,(IX+4) 

36 9E2A DD4695 LD B,(IX+5) ; ADRESSE DU RESULTAT 
37 9E2D C5 PUSH BC 

38 9E2E EB BOUCLE: EX DE, HL ; RESTE DANS HL 

39 9E2F D5 PUSH DE 

49 9E39 CD6CA5 CALL MOD ; DIVISION MODULO. 

41 9E33 D1 POP DE 
42 9E34 7C LD A,H 

43 9E35 B5 OR L ; RESULTAT NUL? 

44 9E36 2@F6 JR NZ, BOUCLE ; RESTE<>9, CONTINUER. 
45 9E38 E1 POP HL ; ADRESSE DU RESULTAT 
46 9E39 73 LD (HL),E 

47 9E3A 23 INC HL 
48 9E3B 72 LD (HL),D ; SAUVER RESULTAT. 

49 9E3C C9 RET :FIN. 
59 

51 9E3D CDYGB9 ERREUR: CALL ROMS ; BRANCHER BASIC 
52 9E49 1E92 LD E,2 ; ERREUR 2 

53 9E42 7B LD A,E :6128 ET 664 SEULEMENT 
54 9E43 C355CB JP 2CB55H ; 464: CA94H 

55 

56 END 
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DEBUT: 9EO9H 
FIN: 9E45H 


VERIFICATION POUR CHARGEUR BASIC: 


SOMME: 7769 
PRODUIT: 399838 


L’algorithme d’Euclide utilisé dans ce programme est basé sur deux 
nombres n et p, dont les valeurs initiales sont égales aux deux nom- 
bres dont on veut le PGCD : faire la division euclidienne de n par 
p(n=p+*q+r, q quotient, r reste) ; sir=0, alors p est le PGCD), sinon, 
faire p=r, n=p et recommencer. 

Prenons l’exemple du calcul du PGCD de 4 et 6. On divise 4 par 
6: 4=0+x6+4; comme 440, on pose p=4 et n=6; à présent, 
6=-1*4+2;2+#0, doncp=2,n=4;4=2*2+0 : le reste est enfin nul, 
le PGCD est donc 2. 


ROUTINES 


Initialisation de la RSX 


Pour bien comprendre cette routine (18 à 26), on se reportera au 
Chapitre 4. Notons que le nom de la routine est PGCD et que l’addi- 
tion de 80H à la dernière lettre revient à mettre son bit 7 à 1. Rappe- 
lons d'autre part que le pseudo-opérateur DEFW LABEL consiste à 
placer la valeur du label en mémoire (deux octets, avec l’inversion 
usuelle du Z80). 


Début 


Rappelons qu’à l’entrée de la routine IX pointe sur les paramètres 
et A contient le nombre de paramètres transmis (appel du BASIC). 
Cette dernière valeur est testée dès le début (29). Comme il faut trois 
paramètres (adresse du résultat +n et p initiaux), si elle diffère de 
3 on passe à la routine d'erreur (voir ci-après) (30). Après ce test on 
récupère les paramètres : ayant été stockés par empilement, on récu- 
père les nombres d’abord (31-34), puis l'adresse (36), laquelle est sau- 
vée sur la pile (37). Au premier appel de la boucle, les deux nom- 
bres se trouvent dans DE et HL. 
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Boucle et fin 


A l'entrée de la boucle (38), n se trouve dans DE, et p dans HL. 
On commence par en inverser les positions pour que n soit dans HL 
(38), puis on exécute la division (40). Notez que, le quotient n'ayant 
aucun intérêt, on a appelé la routine MOD de l’arithmétique. DE, 
c'est-à-dire p, est sauvé sur la pile (39), puis restitué (41). Après la 
division, le reste r se trouve dans HL et p dans DE. On teste r (42-43). 
S'il n’est pas nul, il faut continuer (44) ; dans ce cas, r devient p et 
p devient n, et l’on se trouve bien dans la situation du début de la 
boucle (p dans HL et n dans DE). 

Si le reste est nul, alors le PGCD est p. Il ne reste qu’à récupérer 
l'adresse du résultat (45) et à l’y placer (46-48) avant de retourner 
au BASIC (49). 


Erreur 


En cas d'erreur (nombre de paramètres incorrect), on branche le 
BASIC (51), puis on place le numéro de Syntax error, soit 2, dans E 
pour les 464, dans A pour les 664 et 6128 (52-53) avant de passer 
à la routine de traitement d'erreur (voir Annexe C). 


M DIAGRAMMES EN BARRES 


PRÉSENTATION ET UTILISATION 


Les diagrammes en barres sont d'utilisation fréquente pour toutes 
sortes de graphiques d'économie, de gestion, etc. Naturellement, ces 
diagrammes exigent justement de tracer des barres. Or celles-ci com- 
portent chacune neuf traits (voyez la Figure 2), qui exigent au moins 
un lever de crayon. Tracer une barre en BASIC exige donc au moins 
onze instructions graphiques, sans compter celles destinées à assu- 
rer à la barre sa forme. Il s’agit donc d’une chose pénible et fort lon- 
gue si l’on veut dessiner tout un graphique de quelques dizaines de 
barres. 

Le programme suivant est destiné à éviter cette corvée. || n’a pas 
été réalisé comme extension d'instruction (mais il ne tient qu’à vous 
de le faire). Le tracé d’une barre s'obtient par l’ordre 


CALL &9F00, x, y, h, L a, 


2799 = 


Barre pour 
diagrammes 


où x et y sont les coordonnées du coin inférieur droit (point A sur 
la Figure 2), / la largeur de la barre, h sa hauteur, et a l'angle que 
font ses fuyantes avec l'horizontale. Toutes ces notations sont préci- 


sées sur la Figure 2. 


Une seule barre est ainsi tracée, mais beaucoup plus rapidement 
qu'elle ne le serait en BASIC, et ainsi le tracé d’une vingtaine de bar- 
res à partir du BASIC, mais avec ce programme, ne prend qu'une 


ou deux secondes. 


FONCTIONNEMENT 

1 

2 

3 

4 

5 

6 

7 ORG 
8 LOAD 
9 
19 

11 ROMS : EQU 
12 MOVE : EQU 
13 DRAKR: EQU 
14 COPY: EQU 
15 IR: EQU 
16 RI: EQU 
17 PROD: EQU 
18 SIN: EQU 
19 cos: EQU 


Notations 


Figure 2. 


TRACE DE BARRES 
POUR DIAGRAMMES 


9FOG0H 
3FOSH 


GB90ZH 
SBBCZH 
GBBF9H 
GBD61H 
GBD64H 
GBD6AH 
SBDB5H 
GBDACH 
GBDAFH 
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XX X 
XX 


; 464: 
; 464: 
; 464: 
; 464: 
;: 464: 
; 464: 





BD3DH, 664: 
BD4GH, 664: 
BD46H, 664: 
BD61H, 664: 
BD88H, 664: 
BD8BH, 664: 


Tracé 


BD5EH 
BD61H 
BD67H 
BD82H 
BDA9H 
BDACH 


9F29S 
9Fg2 
9F@5 
3FQ@9 
SFOB 
9FQC 


SFOF E 


SF19 
9F13 
9F14 
9F15 
9F16 
9F17 
9F1B 
9F1D 
9F29 
9F21 
9F23 
9F26 
3F2A 
9F2B 
SF2E 
9F31 
9F34 
9F35 
9F38 
9F3B 
9F3E 
9F41 
9F42 
9F45 
9F48 
9F49 
9F4A 
9F4B 
9F4E 
9F51 
9F54 
9F57 
9F5A 
9F5B 
9FSE 
9F61 


9F64 
9F65 
8F66 
9F69 
9F6A 
9F6B 
9F6C 
9F6F 
9F7G 
9F73 
9F76 
SF7A 
9F7D 
9F7E 
9F7F 
9F82 
9F85 
9F88 
9F8B 
9F8C 
9F8D 
9F99 
9F91 
39F92 
9F95 
9F98 


ICHSGN : 
1CHSGN : 


; 464: 


FEQ5 
C2E99F 
ED73EB9F 
DDF9 

E1 
22ED9F 


BARRE: 


À 
22E99F 
7C 
D1 
E1 
C1 
ED7BEBS9F 
CB17 
DADCS9F 
C5 
CB7A 
C4D59F 
ED53EF9F 
E5 
11F69F 
2AED9F 
CD64BD 
EB 
21FB9F 
CD61BD 
CDAFBD 
11F19F 
E5 
2AE99F 
CD64BD 
EB 
E1 
D5 
CD85BD 
CD6ABD 
22EB9F 
21F69F 
CDACBD 
D1 
CD85BD 
CD6ABD 
22ED9F 


210000 
CDF9BB 


CDF9BB 
D1 

D5 
2AEF9F 
CDF9BB 
ED5BEB9F 


EQU 


CP 
JP 
LD 
LD 
POP 
LD 
POP 
LD 
LD 
POP 
POP 


GA5BFH 
EQU GBDC7H 


5 

NZ, ERREUR 
(TABLE+2),SP 
SP,1IX 


(TABLE+4),HL 
HL 


(TABLE) , HL 
A,H 


SP, (TABLE+2) 
A 

C, ERREUR2 
BC 


7,D 

NZ, HNEG 
(TABLE+6),DE 
BL 


DE, ACC2 

HL, (TABLE+4) 
IR 

DE, HL 

HL, ACC3 
COPY 

cos 

DE, ACC1 


HL 
HL, (TABLE) 
IR 


(TABLE+2),HL 
HL, ACC2 
SIN 


(TABLE+4),HL 


BC 

DE 

HL, (TABLE) 
HL, DE 

HL 

BC 

HL, (TABLE+6) 
HL, BC 
MOVE 

HL,@ 

DE, (TABLE) 
DRAWR 


HL, (TABLE) 
ICHSGN 

DE,@ 

DE 

DE, HL 

DRAWR 

DE 

DE 

HL, (TABLE+6) 
DRAWR 


DE, (TABLE+2) 
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; AVEC “ENTIERS". 


;5 PARAMETRES? 

; NON, “SYNTAX ERROR". 
; SAUVER SP. 

; PILE SUR PARAMETRES 
; ANGLE a 

; SAUVER PROVISOIRT. 

; LARGEUR 1 


;OCTET FORT DE 1 

; HAUTEUR h 

5y, COORD Y DU POINT A. 
;X, COORD X DU POINT A. 
; RESTITUER SP. 

; LARGEUR POSITIVE? 

3; NON, "IMPROPRER ARG. " 
; SAUVER x 

; HAUTEUR POSITIVE? 

; NON, TENIR COMPTE 

; SAUVER h 

»,Y 


; ANGLE a 
; ANGLE EN REEL DANS ACC2 
; ACC2 DANS DE 


; ANGLE a DANS ACC3 
; COS(a) DANS ACC3 


; ACC3 

; RECUPERER 1 

; LARGEUR EN REEL DANS ACC1 
; ACCi DANS DE 

; ACC3 


;:dx=1*xCOS(a) 
;EN ENTIER 
; SAUVER dx 


; SIN(a) DANS ACC2 
; ACCI1 
:dy=lxSIN(a) 

; EN ENTIER 

; SAUVER dy 


; VALEUR DE y 
; VALEUR DE x 


; X+1 


PA 

; HAUTEUR h 

;5y+h 

; POINT (x,y+h), SOIT B. 


51 

; TRACER SEGMENT BC 

PA 

: X+1 

3; POINT (x+l,y),SOIT D. 
HA 

; 1 


; SEGMENT DA 


; 


5h 
; SEGMENT AB 
;dx 


94 9SF9C 2AED9F LD HL, (TABLE+4) ;dy 

95 9F9F CDF9BB CALL DRAWR ; SEGMENT BE 

96 9FA2 ED5BE99F LD DE, (TABLE) 52 

97 9FA6 E1 POP HL 39 

98 9FA7 E5 PUSH HL 

99 9FA8 CDF9BB CALL DRAWR ; SEGMENT EF 

196 9FAB 2AEB9F LD HL, (TABLE+2) ;dx 

191 9FAE E5 PUSH HL 

192 9FAF CDBFA5 CALL ICHSGN ; -dx 

193 9FB2 EB EX DE, HL 

194 9FB3 2AED9F LD HL, (TABLE+4) ;dy 

195 9FB6 E5 PUSH .HL 

196 9FB7 CDBFA5 CALL ICHSGN ; dy 

197 9FBA CDF9BB CALL DRAWR ; SEGMENT FC 

198 9FBD 2AEF9F LD HL, (TABLE+6) ; 

199 9FCS CDBFAS5 CALL ICHSGN -h 

119 9FC3 112999 LD DE,Q 

111 9FC6 CDF9BB CALL DRAWR ; SEGMENT CD 

112 S9FC9 Ei POP HL >: dy 

113 9FCA Di POP DE ;dx 

114 9FCB CDFS9BB CALL DRAWR ; SEGMENT DG 

115 9FCE 2AEF9F LD HL, (TABLE+6) ; 

116 9FD1 Di POP DE HA 

117 SFD2 C3F9BB JP DRAWR ; SEGMENT GF ET FIN. 
118 

119 9FD5 19 HNEG : ADD HL,DE ; X=X-h 

129 9FD6 EB EX DE, HL 

121 9FD7 CDBFAS CALL ICHSGN 5h POSITIF 

122 S9FDA EB EX DE, HL 

123 9FDB C9 RET 

124 

125 9FDC 1E95 ERREUR2: LD E, 5 ; ERREUR 5 

126 9FDE 1892 JR ERREUR+2 ; "IMPROPRER ARGUMENT * 
127 SFES 1E02 ERREUR: LD E,2 ; "SYNTAX ERROR‘ 
128 9FE2 CD9SB9 CALL ROMS ; BRANCHER BASIC 
129 9FE5 7B LD A,E ; POUR 6128 ET 664 
13Q 9FE6 C355CB JP GCB55H ; 464: CA94H 

131 

132 

133 TABLE: DEFS 8 ; PLACE POUR ENTIERS. 
134 ACC1: DEFS 5 ; ACCUMULATEUR 1 
135 ACC2: DEFS 5 ; ACCUMULATEUR 2 
136 ACC3: DEFS 5 ; ACCUMULATEUR 3 
137 

138 END 


DEBUT: _9F@2H 
FIN: SFFFH 


VERIFICATION POUR CHARGEUR BASIC: 


SOMME : 
PRODUIT: 


Le fonctionnement de ce programme est très simple, presque pri- 
maire. Il s’agit simplement de tracer ces neuf traits. Pour cela on est 
obligé de lever au moins une fois le ‘’crayon”’. Ici, on a choisi de 
tracer d’abord le segment du haut BC (voir figure), puis tous les autres 
à la suite en partant de D et en arrivant à F, dans cet ordre : D, A, 


38829 


4446418 


B,E,F,C, D, G, F à nouveau. 


Les segments sont tracés par la routine DRAWR, tous les calguls 
sont très simples et basés sur des entiers, une fois que dx et dy sont 
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connus. Ces deux valeurs (voir figure) sont calculées au début, comme 
valant I+*cos(a) et Ixsin(a). 

Si vous le souhaitez, vous pouvez simplifier ultérieurement le pro- 
gramme pour éviter ces calculs de cosinus et sinus, en donnant à l’an- 
gle a une valeur constante ; pour savoir comment faire, reportez-vous 
à l'explication relative au cercle. 

Le programme nécessite une table de huit octets, pour y stocker 
quatre entiers (|, dx, dy et h) et trois accumulateurs de 5 octets pour 
le calcul de dx et dy. 


ROUTINES 


Barre 


Dès le début, on vérifie que cinq paramètres ont bien été trans- 
mis, faute de quoi on passe à la routine d'erreur (24-25). Ensuite, on 
récupère ces paramètres, avec l’un des actes décrits au Chapitre 5. 
Il consiste à sauver le SP (26), ici dans une partie inutilisée au début 
de la table, puis à le charger avec IX (adresse des paramètres) (27), 
enfin à dépiler les paramètres les uns après les autres, avant de resti- 
tuer le SP (36). Comme il y a cinq paramètres, les deux premiers, a 
et |, sont sauvés dans la table. Pour ce qui est des trois autres (x, y, 
et h), ils sont placés dans les registres (33-35). Avant de commencer, 
il est nécessaire de vérifier que l'est bien positif. Pour cela, on charge 
À avec son octet le plus fort (32), et l’on fait passer le bit 7 de cet 
octet (bit de signe) dans la retenue (37). Si ce bit est non nul, on passe 
à la routine d'erreur (38). 

A présent, on sauve sur la pile x (39). Pour y, il faut d’abord vérifier 
si h est positif (40). Si ce n’est pas le cas, il faudra prendre pour y 
la valeur y+h et rendre h positif (41). Ensuite, on sauve y sur la pile 
à son tour (43) et h dans la table (42). 

On passe alors au calcul de dx et dy, qui valent respectivement 
Ixcos(a) et Ixsin(a). Ces opérations ne pouvant se faire que sur des 
réels, il faut d’abord transformer a et | en réels, le premier dans l’ac- 
cumulateur flottant 2 (44-46) et 3, car on l’utilise deux fois (47-49), 
le second dans l’accumulateur 1 (53-54). On calcule le cosinus de 
a (50) et on le multiplie par | (55-58) avant de le transformer en un 
entier dx (59), qui est placé dans la table (60). Notez les opérations 
de pile et d'échange, destinées à éviter les chargements type LD 
HL,ACCT qui prennent trois octets chacun. Pour le calcul de dy, même 
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principe, le sinus est calculé sur ACC2, où a se trouve encore à ce 
moment (61-62), la suite est identique (63-66). 

Le dessin commence alors. On calcule, après avoir dépilé x et y 
(68-69), les coordonnées de D (qui valent x+l et y) et on les empile 
(70-73), puis celles de B (qui valent x et y+h ; voir figure pour tout 
cela) (74-75) où le curseur graphique est positionné (76), avant de 
tracer le segment BC (77-79). Ensuite on restitue les coordonnées de 
D empilées (80-81) afin d'y placer le curseur graphique (82) avant 
de tracer les uns à la suite des autres tous les segments restants par 
des DRAWR. Des changements de signe sont parfois nécessaires. 
Notez ici encore les circulations sur la pile, qui ont le même but que 
précédemment. L’exécution du programme s'achève sur un dernier 
tracé (117). 


Hneg 


Cette petite routine est utilisée si h est négatif en entrée. || faut alors 
en changer le signe (120-122), et changer aussi y, le coin inférieur 
droit ayant pour ordonnée ÿy+h si h<0 (119). 


Erreur2 et erreur 


La routine d'erreur est la même que pour PGCD. Erreur2 permet 
de sortir l'erreur n° 5 (Improper argument ; cas d’une largeur 
négative). 


& EXEMPLE DE RSX GRAPHIQUE ET ARITHMÉTIQUE : ÉTOILES 


PRÉSENTATION ET UTILISATION 


Le petit programme BASIC ci-dessous permet d'obtenir le tracé 
d’une étoile de taille et de nombre de branches variables. On peut 
difficilement le qualifier de léger ! Beaucoup moins en tout cas que 
ce simple ordre : [ETOILE, n, r1, où nest le nombre de branches sou- 
haité, et r1 le rayon extérieur des branches (moitié du plus grand dia- 
mètre de l'étoile ; voir Figure 3). Par cet ordre, à condition d’avoir 
assemblé le programme suivant et d’en avoir initialisé au moins une 
fois la RSX (par CALL &A000), vous obtiendrez un tracé pratiquement 
instantané d'étoile. 
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129 
119 
129 
139 
149 
159 
169 
179 
189 
199 
290 
219 
229 


[ee 


DEG : CLS 

INPUT ‘Combien de branches ‘“;n 
PRINT:INPUT ‘Taille (1-29) ‘;r1 
CLS:ORIGIN 329, 29: MOVE G,ri 
r2=r1xCOS(36S/n)/COS(189/n) 

a=g 

FOR i=1 TO 2*%n 

IF i MOD 2-9 THEN r=r1 ELSE r=r2 
a=a+189/n 

DRAW rxSIN(a),r*xCOS(a) 

NEXT 

END 





Trace d’etoiles 


L'étoile tracée sera centrée sur la position courante du curseur gra- 


phiqu 


e (changée par MOVE en BASIC) qui est restituée en fin de pro- 


gramme. Le nombre de branches doit être compris entre 4 et 127 


{inclu 


s). Par exemple, après assemblage et un CALL &A000, faites : 


MODE 2: MOVE 320,200: FOR R = 10 TO 190 STEP 10: [ETOILE, 
5, R: NEXT 


et appréciez... 





FONCTIONNEMENT 

1 SRE ======Z== 

2 Extension d’instructions == 

3 KXX ÉTOILE *%xx == 

4 3 ======ZZZZZ=Z==ZZ=Z=Z=======Z=E======= 

5 

6 

7 ORG  GAGGGH 

8 LOAD GASGOGH 

9 

19 INTRSX: EQU GBCD1H 

11 

12 ; INTEGRATION DE L'EXTENSION. 

13 

14 A999 G199AS LD BC, RSX 

15 A993 2115A9 LD HL, NOYAU 

16 A996 C3D1BC JP INTRSX ; INTEGRER L'’EXTENSION 
17 A999 GEAQ RSX: DEFW NOM ; EMPLACEMENT DU NOM 
18 AS9B C337A9 JP ETOILE ; EXECUTION 

19 AOGE 45544F49 NOM: DEFB “ETOIL" 

19 Ag12 4C 
29 AG13 C5 DEFB “E'"+89H ;DERN. LETTRE:BIT7 =1 
21 AG14 59 DEFB G ;S POUR FINIR 
22 NOYAU: DEFS 4 ; PLACE POUR NOYAU. 
23 
24 

25 ROMS : EQU GB99SH 

26 MOVE : EQU GBBCSH 

27 POS? : EQU GBBC6H 

28 ORIG: EQU GBBC9H 

29 ORIG?: EQU GBBECCH 

32 DRAWH: EQU ©BBF6H 

31 COPY: EQU GBD61H ; 464: BD3DH, 664: BD5EH 
32 IR: EQU @BD54H ; 464: BD4SH, 664: BD61H 
33 RI: EQU  GBD6AH ; 464: BD43H, 664 : BD64H 
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36 


AG37 
A939 
A93C 


AG3F 
AD42 
AGA45 
A948 
AG4B 
AG4E 
4959 
4953 
AD54 
AD55 
A957 
A959 
AD5A 
AD5D 


A969 
A963 
A964 
A965 
A966 
A967 
A968 
A96B 
AD6C 
A96D 
AOGE 
AG6F 
A97G 
A971 


A974 
A977 
A979 
A97C 
A97D 
AQ7E 
A9B1 
A9B4 
A987 
ADBA 
ADBD 
A999 
A993 
A994 
A997 
A998 
A999 
Ag9C 
AG9D 
AGAG 
AGA3 
ADA4 
ADA5 


FE92 
C231A1 
CD97BD 


112DAQ 
DD6691 
DD6E0S 
CD64BD 
DD7E92 
FE93 
DA2DA1 
4F 

37 
CB11 
3E09 
47 
DD8E93 
C22DA1 


CDCCBB 
D5 
E5 
C5 
E5 


CDC3BB 


1119A9 
2699 
DD6ES2 
D5 

D5 
CD64BD 
210909 
1128A9 
CD64BD 
112340 
21B499 
CD64BD 
D1 
CD88BD 
EB 

E1 
CD61BD 
D5 
CD7CBD 
CDAFBD 
D1 

ES 
211EA9 


SOM: EQU GBD7CH :464:BD58H, 664: BD79H 
PROD: EQU GBD85H ; 464: BD61H, 664: BD83H 
DIV: EQU GBD88H ; 464: BD64H, 664: BD85H 
DEG: EQU GBD937H ; 464:BD73H,664:BD94H 
SIN: EQU  GBDACH ; 464: BD88H, 664 : BDA9IH 
COS: EQU  GBDAFH ; 464 : BD8BH, 664 : BDACH 
ICHSGN: EQU GA5BFH ; AVEC “ENTIERS" 
;464: ICHSGN: EQU GBDC7H 
ACC1: DEFS 5 ; ACCUMULATEUR 1 
ACC2: DEFS 5 ; ACCUMULATEUR 2 
ANGG: DEFS 5 ; CONSTANTE 189/n 
ANG1: DEFS 5 ; ANGLE VARIABLE 
RAY1: DEFS 5 ; CONSTANTE r1 
RAY2: DEFS 5 ; CONSTANTE r2 
ETOILE: CP 2 ; DEUX PARAMETRES ? 
JP NZ, ERREUR ; NON, "SYNTAX ERROR" 
CALL DEG ; MODE DEGRES 
; RECUPERATION DES PARAMETRES 
LD DE, RAY1 
LD H,(IX+1) 
LD L, (IX+9) ;r1, DERNIER PARAMETRE 
CALL IR ; METTRE ri DANS RAY1,EN REEL 
LD A, (1X+2) ;n, NOMBRE DE POINTES 
CP ; AU MOINS 3 POINTES ? 
JP C, ERREUR?2 ; NON, ‘IMPROPRER ARG. 
LD , 
SCF 
RL C ; C=2*n+1 
LD A,9 ; CONSERVER RETENUE 
LD B,A ; COMPTEUR i A ZERO DANS B 
ADC A,(IX+3) :NON NUL SI n>127 
JP NZ, ERREUR2 ; ALORS, IMPROPRER. .. " 
; PLACEMENT DE L'ORIGINE AU CENTRE 
CALL ORIG? 
PUSH DE 
PUSH HL ; CONSERVER L'ORIG. ACTUELLE 
PUSH BC ; SAUVER LE COMPTEUR 
PUSH HL 
PUSH DE 
CALL POS? ; POSITION RELATIVE 
POP BC ; COORD. X DE L'ORIGINE 
EX DE, HL 
ADD HL,BC ; COORD X ABSOLUE 
EX DE, HL 
POP BC ; COORD Y DE L'ORIGINE 
ADD HL,BC ; COORD Y ABSOLUE 
CALL ORIG ;ORIGINE AU CENTRE 
; CALCUL DE 189/n ET r2 
LD DE, ACC1 
LD H,9 
LD L,(IX+2) ;n 
PUSH DE ; ACC1 
PUSH DE ; ACCI 
CALL IR ;n EN REEL DANS ACCI 
LD HL,@ 
LD DE, ANG1 
CALL IR ; ANNULER a 
LD DE, ANGS 
LD HL, 189 
CALL IR :189 DANS ANGS,EN REEL 
POP DE ; ACCI 
CALL DIV ; (ANGS)=189/n 
EX DE, HL ; ANGQ DANS DE 
POP HL ; ACC1 
CALL COPY :189/n DANS ACCI1 
PUSH DE ; ANGO 
CALL SOM ; (ACC1)=189/n+18%/n=36@/n 
CALL COS ; (ACC1)=COS(369/n) 
POP DE ; ANGO 
PUSH HL ; ACC1 
LD HL, ACC2 
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198 
199 
119 
111 
112 
113 
114 
115 
116 
117 
118 
119 
129 
121 
122 
123 
124 
125 
126 
127 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
171 
172 
173 
174 
175 
176 
177 
178 
179 
189 
181 


AGAB 
AGAB 


ASAF 
ASBS 
ASB3 
ASB6 
AGB7 
AGBA 
ASBB 
A9BE 


AgC1 
AgC2 
AQC5 
AQCB 


AGCB 
ACC 
AQCD 
AQCE 
ADCF 
AgD1 
AGD2 
ASD3 
AGD5 
ASD8 
ASDA 
AGDD 
AGEQ 
AQE1 
ADE4 
AGE7 
ASEA 
ADED 
AOFS 
AGF1 
AOF 4 
AGF7 
AGFB 
ASFB 
AGFC 
A9FF 
A192 
A195 
A198 
A19B 
A1SE 
A19F 
A112 


A114 
A117 
A11A 
A11B 
A11C 


A11F 
A122 
A125 
A128 
A129 
A124 


A12D 
A12F 
A131 
A133 
A136 
4137 


CD61BD 
CDAFBD 
EB 
E1 
CD88BD 
112DAS 
D5 
CD85BD 
EB 
2132A9 
CD61BD 


E1 

CD6ABD 
110099 
CDCSBB 


1132A9 
211EA9 
E5 

CD61BD 
2128AQ 
1123A9 
CD7CBD 
1119A9 
EB 

CD61BD 
CDACBD 


2119A9 
112849 
CD61BD 
CDAFBD 
111EA9 
CD14aA1 
D1 
CDF6BB 
18B7 


CD85BD 
CD6ABD 


110000 
21909 
CDCOBB 
E1 
D1 
C3C9BB 


1E05 
1892 
1E02 
CD9GB9 
7B 
C355CB 


CALL 
CALL 
EX 
POP 
CALL 
LD 
PUSH 
CALL 
EX 
LD 
CALL 


COPY 
cos 

DE, HL 
BL 

DIV 

DE, RAY1 
DE 
PROD 
DE, HL 
HL, RAY2 
COPY 


; PLACEMENT INITIAL 


POP 
CALL 
LD 
CALL 


HL 
RI 
DE,9 
MOVE 


; TRACE DES SEGMENTS. 


ROUTINE: 


SUITE: 


PRODSGN : 


FIN: 


ERREUR2 : 
ERREUR: 


POP 


CALL 
CALL 
RLA 
RET 
JP 


LD 


CALL 
POP 
POP 
JP 


LD 
JR 
LD 
CALL 
LD 
JP 


END 


BC 

A,B 

À 

C 

Z,FIN 
B,A 

BC 

B 

DE, RAY1 
NC, SUITE 
DE, RAY2 
HL, ACC2 
HL 

COPY 
HL, ANG1 
DE, ANGO 
SOM 

DE, ACC1 
DE, HL 
COPY 
SIN 

DE 
PRODSGN 
HL 

HL, ACC1 
DE, ANG1 
COPY 
cos 

DE, ACC2 
PRODSGN 
DE 
DRAW 
ROUTINE 


PROD 
RI 


NC 
ICHSGN 


DE,Q 


E,5 
ERREUR+2 
E,2 
ROMS 
A,E 
QCB55H 
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; (ACC2)=(ANGD)=189/n 
;:COS(189/n) DANS ACC2 
; ACC2 DANS DE 

; ACC1 

; COS(369/n)/COS(18S/n) 


; OBTENTION DE r2 DANS ACCI 
; ACC1 DANS DE 


;r2 DANS RAY2 


srl 


;:r1 EN ENTIER 


; MOVE G,r1i 


;i DS B,2%n+1 DS C 

; VALEUR DU COMPTEUR i 
3i=i+1 

; ARRIVE A 2%i+1 ? 

; OUI, TERMINE 

; RESTOCKER ji 

;ET SAUVER LE TOUT. 
;i PAIR ? 

OUI, r=r1 


; NON, r=r2 


;r DANS ACC2 
; (ANG1)=ANGLE a 


;a=a+189/n 


;a DANS ACCI1 

; SIN(a) DANS ACCI 

; ACC2 

;:X=r*xSIN(a) 

; COORD x DU POINT COURANT 


; ENCORE a DANS ACCI1 
; COS(a) DANS ACCI 


;a 
:y=rxCOS(a) 

;:x DANS DE,y DANS HL 
; TRACER LA LIGNE 

; À LA SUIVANTE 


; FAIRE LE PRODUIT 

; CONVERTIR EN ENTIER 

; SIGNE DANS RETENUE 

; POSITIF,OK. 

;NEGATIF, TENIR COMPTE. 


:SE REPLACER AU CENTRE 


; COORD. ANCIENNE ORIGINE 
; RESTITUER ANCIENNE ORIG. 


; ERREUR 5 
; "IMPROPRER ARGUMENT" 


‘3 "SYNTAX ERROR" 


; BRANCHER BASIC 
; POUR 6128 ET 664 
; 464: CAI4H 


DEBUT: AS9SH 
FIN: A139H 


VERIFICATION POUR CHARGEUR BASIC: 


SOMME: 36431 
PRODUIT: 6292731 


Étoile (ici à 6 branches) 


Notations 





Sens du tracé 


Figure 3. 
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Le fonctionnement de ce programme est assez élémentaire ; il se 
différencie peu, en fait, du programme BASIC correspondant. Le nom- 
bre relativement élevé de lignes s'explique par la présence d’une RSX 
à initialiser, de nombreuses étiquettes (50 lignes rien qu'avec cela !), 
mais aussi de calculs arithmétiques dus à la valeur un peu compli- 
quée de r2 (rayon intérieur de l'étoile, voir figure), donné par la 
formule 


r2=r1*COS(360/n)/COS(180/n) 


Cette formule est calculée pour que les parties rentrantes des bran- 
ches de l'étoile soient alignées deux à deux. 

r2 étant calculé, on trace de point en point. Les angles séparant 
deux points consécutifs, vus du centre, valent 180/n, et les distances 
au centre valent alternativement r1 et r2. 

Le programme utilise cinq accumulateurs à virgule flottante : ACC1 
et ACC2 pour les intermédiaires de calcul, ANGO pour y placer la 
constante 180/n, ANG1 où se trouve l'angle a, enfin RAY1 et RAY2 
où se trouvent les deux rayons rl et r2. 


ROUTINES 


Intégration de l’extension 


On se reportera à PGCD et au Chapitre 4 pour cette routine. Le 
nom de l'instruction est ETOILE. 


Récupération des paramètres 


Après avoir vérifié que deux paramètres avaient bien été transmis 
(51-52) et s'être placé en mode degrés (à cause de 180/n) (53), les 
deux paramètres r1 et n sont récupérés. Tout d’abord r1, qui est aus- 
sitôt transformé en réel placé dans RAY1 (55-58), puis le nombre de 
branches n. Ce nombre est testé : il doit être supérieur à 3 (60-61), 
sinon l'étoile n'existe pas, et inférieur à 128 afin que l’on puisse stocker 
la valeur maximale du compteur i, soit 2xn+1, dans un seul octet, 
ici C (62-64). Pour vérifier que c’est bien le cas, on additionne son 
bit 7, mis dans la retenue (par 64), et les bits 8 à 15, contenus dans 
(IX+3), à zéro (65 et 67). Si le résultat n’est pas nul, c’est qu’un de 
ces bits ne l’est pas, donc que n est trop grand (68). Sinon, tout va 
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bien : n est alors toujours dans (IX+2), le compteur i, contenu dans 
B, est initialisé à zéro, et sa valeur maximale est dans C. 


Placement de l’origine au centre 


Le programme exigeant que l’origine des axes graphiques se trouve 
au centre de l'étoile, on commence par demander la position de l'ori- 
gine courante et par la sauver, ainsi que le compteur BC (70-73). 
Ensuite, on demande la position du curseur graphique, centre de 
l'étoile (76), et on ajoute ses coordonnées à celles de l’origine, stockées 
une deuxième fois sur la pile (74-75), afin d'en avoir la position absolue 
(c'est-à-dire par rapport au coin inférieur droit de l'écran) (77-82). 
Il ne reste plus qu’à placer l’origine en ce point (83). 


Calcul de 180/n et r2 


On récupère n dans HL (86-87) en tenant compte du fait qu’il ne 
tient que sur un octet (86), puis on le transforme en un réel stocké 
dans l’accumulateur 1 (85-90). Ensuite, après avoir initialisé l'angle 
a à zéro comme en BASIC (91-93), on place 180 en réel dans ANGO 
(94-96), et l’on exécute la division par n (97-98) afin que ANGO con- 
tienne bien 180/n. Cette valeur est alors recopiée dans ACC1 (100-101) 
et additionnée à elle-même (102-103) afin d'obtenir 360/n, dont le 
cosinus est alors calculé (104). Ensuite on recopie 180/n dans ACC2 
(105-108) afin d'en calculer le cosinus (109), puis d'exécuter la divi- 
sion pour obtenir COS(360/n)/COS(180/n) dans ACC (112). Il ne reste 
plus qu’à multiplier par r1 (113-115) pour avoir r2 (formule ci-dessus). 
Cette valeur est alors copiée dans RAY2 (116-118). 


Placement initial 


On reconvertit ici rl en un entier (120-121), la valeur initiale de 
IX étant perdue, et l’on place le curseur graphique en haut de l'étoile, 
en (0,r1) (122-123). Le tracé peut alors commencer. 


Tracé des segments 


Le compteur est restitué (127) et incrémenté (128). S'il n'atteint pas 
encore sa Valeur maximale de 2*n+1 stockée dans C, on continue 
le tracé, sinon, l’on passe à la fin (130-131). Avant de tracer, on sauve 
le compteur (132-133). 

On détermine d’abord pour le tracé si r vaut r1 ou r2, en fonction 
de la parité du compteur (134-137). 
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Cela fait, on place r dans ACC2 pour les calculs (140). Ensuite, on 
ajoute 180/n à l'angle à (141-143), puis on en calcule le sinus après 
l'avoir placé dans ACC1 (144-147). On multiplie alors par r et l’on 
obtient la première coordonnée rx*sin(a) (148-149), sauvée sur la pile 
(150). Même travail avec r*xcos(a) (151-156), la seconde coordonnée. 
Il ne reste qu’à restituer la première (157) et à tracer un trait (158) 
avant de recommencer la boucle (159). 


Prodsgn 


Cette routine exécute le produit entre les deux réels dont les adresses 
lui sont fournies (161), puis transforme le résultat en un entier (162). 
Mais RI donne le signe de l’entier dans A (bit 7) et sa valeur absolue 
dans HL. Donc si ce signe est positif tout va bien (163-164), sinon 
il faut changer le signe de HL, positif à tort (165). 


Fin 

Le curseur graphique est replacé au centre de l'étoile, sa position 
initiale (167-169). Puis les coordonnées de l’origine initiale sont res- 
tituées (170-171) et l’origine est replacée (172). Ici s'arrête le 
programme. 
Erreurs 


Comme pour la barre. 


B UNE EXTENSION D'’INSTRUCTION GRAPHIQUE : 
CERCLE RAPIDE 


PRÉSENTATION ET UTILISATION 


Une des figures géométriques les plus employées est sans aucun 
doute le cercle, symbole de perfection. 

Cette perfection, on en est loin si l’on souhaite en tracer en BASIC ; 
il faut faire : 


DEG: MOVE R,0: FORT = 5 TO 360 STEP 5: DRAW RxCOS(T), 
R*SIN(T): NEXT 
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R désignant le rayon du cercle. On a ainsi un dessin suffisamment 
proche du cercle réel (compte tenu de l'épaisseur des pixels), mais 
quelle lenteur ! De fait, on a ainsi 72 instructions DRAW et 144 cal- 
culs trigonométriques exécutés, et c’est la valeur minimale (un pas 
de plus de 5 degrés donne un résultat peu circulaire). En réalité, le 
tracé est même très rapide, vu le travail nécessaire (car le BASIC Ams- 
trad est très performant). 

Pour arriver à un tracé presque instantané des cercles, il faut recourir 
à l’assembleur, bien évidemment sous la forme d’une RSX. 

Je dois reconnaître que la présentation d’une RSX de cercle n’est 
guère originale. Cela étant, sous prétexte que l’assembleur est plus 
rapide que le BASIC, les auteurs des nombreuses versions de cette 
RSX que j'ai eu l’occasion de voir (environ une demi-douzaine) se 
sont contentés plus ou moins de réécrire en assembleur le programme 
BASIC ci-dessus. Or le gain de temps est alors faible ; en effet, ce qui 
est le plus long, outre les sorties graphiques (obligatoires), ce sont 
les calculs de polynômes de cosinus et sinus, qui sont pratiquement 
les routines les plus lentes du système d'exploitation. Et ce calcul n’est 
pas plus rapide en assembleur qu’en BASIC, d’où un gain relative- 
ment faible. 

Or ces calculs, comme il est expliqué au paragraphe suivant, ne 
sont aucunement nécessaires. De fait, le programme dont le listing 
est donné ne fait qu’une seule sorte de calculs : des produits sur des 
entiers, qui sont très rapides, et c'est tout. Mystère expliqué au para- 
graphe suivant. 

De ce fait, le tracé est pratiquement instantané, même pour des 
cercles de très grand rayon (le programme accepte jusqu'à 511). 

Concrètement, l’utilisation est très simple : pour obtenir un cercle 
de rayon R centré au point de coordonnées (X,Y) (ces coordonnées 
doivent être calculées par rapport au coin inférieur droit de l'écran, 
non par rapport à l’origine en cours), faites : ICERCLE, R, X, Y (après 
avoir, comme toujours, initialisé au moins une fois la RSX par CALL 
&A200). 


FONCTIONNEMENT 

1 FRS 2==2S=S==========2==-- = 
2 32= Extension d'instructions == 
3 35 == CERCLE == 
4 JSZZSZ222ZSZZ=Z======SZZS==ESZZEE= === 
5 

6 

7 ORG SGA299H 
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A290 
A203 
A2G6 
A299 
A29B 
A29E 
A212 
4213 
A214 


A219 
A21B 
A21D 
A229 
A221 
A222 
A225 
A228 
A22B 
A22E 
4231 
A234 
4237 
A239 
A23A 
A23C 
4249 
A243 
A246 


A248 
A24A 
A24E 
A251 
A253 
A256 
A257 
A25A 
A25B 
A25D 
A269 
A261 

A262 

4264 

A267 

A268 

A26B 
A26C 
A26E 
A26F 
A271 


LOAD GA2GGH 


INTRSX: EQU @BCD1H 


; INTEGRATION DE L’EXTENSION. 


319942 LD BC, RSX 
211542 LD HL, NOYAU 
C3D1BC JP INTRSX 
GEA2 RSX: DEFW NOM 
C319A2 JP CERCLE 
43455243 NOM: DEFB “CERCL" 
ac 
C5 DEFB "E"+980H 
2o DEFB @ 
NOYAU: DEFS 4 
ROMS : EQU GB99SH 
MOVE : EQU GBBCSGH 
ORIG: EQU GBBC9H 
ORIG?: EQU GBBCCH 
DRAN: EQU O©BBF6H 
IPRODABS : EQU GA53BH 
; 464: IPRODABS: EQU GBDBEH 
ICHSGN: EQU @A5BFH 
:464: ICHSGN: EQU GBDC7H 
; INITIALISATION 
FEO3 CERCLE: CP 3 
297A JR NZ, ERREUR 
CDCCBB CALL ORIG? 
D5 PUSH DE 
E5 PUSH HL 
DD6ES2 LD L,(IX+2) 
DD6603 LD H, (IX+3) 
DD5EG4 LD E, (IX+4) 
DD56@5 LD D, (IX+5) 
CDC9BB CALL ORIG 
DD5691 LD D,(IX+1) 
DD5ES9 LD E, (IX+9) 
3EFE LD A, GFEH 
A2 AND D 
2957 JR NZ, ERREUR2 
ED53A9A2 LD (RAYON), DE 
210000 LD HL,@ 
CDCSBB CALL MOVE 
GEGO LD c,g 
; QUART PAR QUART 
2612 TRACER: LD B, 18 
DD214A2A2 LD IX, TABLE 
CD78A2 QUART : CALL CALCUL 
CB49 BIT 1,C 
C4BFAS5 CALL NZ, ICHSGN 
E5 PUSH HL 
CD784A2 CALL CALCUL 
2c INC C 
CB49 BIT 1,C 
C4BFAS5 CALL NZ, ICHSGN 
5D DEC C 
D1 POP DE 
CB41 BIT @,C 
C491A2 CALL NZ, ECHANGE 
C5 PUSH BC 
CDF6BB CALL DRAW 
C1 POP BC 
19ES DJNZ QUART 
oc INC C 
CB51 BIT 2,C 
28D5 JR Z, TRACER 
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; INTEGRER L’EXTENSION 


; PLACE POUR NOYAU 


; AVEC “ENTIERS" 


; AVEC “ENTIERS" 


;3 PARAMETRES? 
; NON, "SYNTAX ERROR" 


; COORD ORIGINE ACTUELLE 


; COORD. DU CENTRE 
;ORIGINE AU CENTRE 


; RAYON R DU CERCLE 

; RAYON < 512 ? 

; NON, ‘IMPROPRER ARG. 
; STOCKER 


; SE PLACER EN (R,@). 
3; INITIALISER COMPTEUR. 


:18 SEGMENTS 


; EMPLACEMENT DES NOMBRES 


; RXCOS(T) 

; SIGNE DU COSINUS®? 
; RENDRE NEGATIF 

; SAUVER 

> RXSIN(T) 


; SIGNE DU SINUS? 

; RENDRE NEGATIF 

; RESTITUER COMPTEUR 

; RECUPERER COSINUS 

; ECHANGE NECESSAIRE? 

> OUI, LE FAIRE 

; SAUVER LES COMPTEURS. 
; TRACER 


; TRACER TOUT LE QUART 
; NUMERO QUART SUIVANT 
; INFERIEUR A 4? 

; OUT, CONTINUER 


81 4273 El POP HL 


82 A274 D1 POP DE ; COORD ORIGINE ANCIENNE 
83 A275 C3C9BB JP ORIG ; RESTITUER ORIGINE ET FIN. 
84 
85 
66 A278 2600 CALCUL: LD H,9 
87 A27A DD6E99 LD L, (IX+2) ; COSINUS OU SINUS 
88 A27D DD23 INC IX 
89 A27F ED5BASA2 LD DE, (RAYON) ; RAYON R. 
99 A283 CD3BAS5 CALL IPRODABS ; MULTIPLIER NBRES >@. 
91 A286 7C LD A,H 
92 A287 2609 LD E,9 
93 A289 CB15 RL L 
94 A28B CB17 RL A 
95 A28D CB14 RL H 
96 A28F 6F LD L,A ;DIVISER HL PAR 128 
97 A29S C9 RET 
98 
99 A291 EB ECHANGE: EX DE, HL 
196 A292 C9 RET 
191 
192 
193 A293 1E05 ERREUR2: LD E,5 ; ERREUR 5 
194 A295 1892 JR ERREUR+2 ; "IMPROPRER ARGUMENT 
195 A297 1E92 ERREUR: LD E,2 ; "SYNTAX ERROR" 
196 A299 CD9SB9 CALL ROMS ; BRANCHER BASIC 
197 A29C 7B LD A,E ; POUR 6128 ET 664 
198 A29D C355CB JP @CB55H ; 464: CA94H 
199 
119 
111 RAYON : DEFS 2 
DEEB TABLE: 
113 A2A2 800B DEFB 128,11 
114 A2A4 7E16 DEFB 126,22 
115 A2A6 7C21 DEFB 124,33 
116 A2AB 7B2C DEFB 129,44 
117 AZAA 7436 DEFB 116,54 
118 A2AC 6F49 DEFB 111,64 
119 A2AE 6949 DEFB 195,73 
129 A2BQ 6252 DEFB 98,82 
121 A2B2 5B5B DEFB 91,91 
122 A2B4 5262 DEFB 82,98 
123 A2B6 4969 DEFB 73,195 
124 A2B8 3F6F DEFB 63,111 
125 A2BA 3674 DEFB 54,116 
126 A2BC 2C78 DEFB 44,129 
127 A2BE 217C DEFB 33,124 
128 A2C9 167E DEFB 22,126 
129 A2C2 GB89 DEFB 11,128 
139 A2C4 DS89 DEFB 9,128 
131 
132 END 


DEBUT: A290H 
FIN: A2C5H 


VERIFICATION POUR CHARGEUR BASIC: 


SOMME: 22528 
PRODUIT: 2154475 


_ 97 - 





(r cos (t), r sin (t)) 





Sens du 
tracé 








Cercle: 8 
tracé en BASIC 


Figure 4. 


Donc expliquons comment on peut éviter tous les calculs sur des 
réels, et particulièrement les calculs de cosinus et sinus. 

En réalité c’est fort simple. Regardez le programme BASIC ci-dessus. 
Vous constatez que les cosinus et sinus calculés sont toujours les 
mêmes : ce sont ceux des angles de 5 à 360 degrés (de 5 en 5) ; ils 
ne dépendent nullement des caractéristiques du cercle (ce qui n'était 
pas le cas pour les étoiles, où les angles dépendaient de n). D'où l’idée 
qui vient naturellement à l'esprit : les calculer une seule fois et les 
placer en mémoire. 

Toutefois, compte tenu du fait qu’un réel prend cinq octets en 
mémoire, cela risque de faire beaucoup d’'octets utilisés. Dès lors, 
deuxième idée : les stocker en tant qu'entiers. Cela n’est pas possi- 
ble directement (leur partie entière est presque toujours nulle), mais 
l’on peut stocker des valeurs types N+*COS(T), où N est un entier assez 
grand pour que l’on puisse considérer la différence 
N+COS(T) - ROUND(N+COS(T)) comme négligeable au moins 100. 
Dès lors, pour calculer RxCOS(T), il suffira de calculer (R+*C)/N. Les 
valeurs € = ROUND(N+COS(T)) étant stockées en mémoire, il ne s’agit 
plus en effet que de calculs sur des entiers. 

Un problème, néanmoins, se pose alors : quelle valeur donner à 
N ? La réponse est quadruple. Primo, on l’a dit, N doit être assez grand 
(au moins 100), faute de quoi l’imprécision relative au fait d’arrondir 
N+COS(T) à l’entier le plus proche risque d’être trop importante. 
Secundo, N doit être inférieur à 256, afin de permettre de stocker 
les valeurs C = ROUND(N+*COS(T)) et S = ROUND(NXSIN(T)) sur un 
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seul octet chacune, pour gagner de la place. Tertio, N ne doit pas 
être grand non plus car RxN doit rester sur 16 bits, donc être infé- 
rieur à 65535, ce qui limite les valeurs possibles pour R ; ainsi, pour 
N=200,R ne devrait pas dépasser 65535/200 soit 327, ce qui est assez 
limitatif. Quarto, comme il faut diviser par N dans le programme, et 
souvent, il vaut mieux que cette division soit la plus facile possible ; 
or les divisions les plus simples en binaire sont celles par les puissan- 
ces de 2 (simples décalages de bits). 

D'où la réponse à ce rébus : N=128. C'est le seul nombre qui 
réponde aux quatre critères cités. On a donc placé en fin de pro- 
gramme une table comprenant les valeurs des cosinus et sinus des 
angles de 5 à 90 degrés, multipliés par 128. 

Pourquoi seulement jusqu’à 90 degrés, ce qui ne permet que le 
tracé du premier quart du cercle ? 

Réponse sur la Figure 4, à droite. Vous constatez que les quatre 
points M, M, M, et M, qui sont à des positions semblables dans 
des quadrants différents, ont des coordonnées déductibles de celles 
de M, à savoir (R*C/N,R*xS/N). Elles valent en effet dans l’ordre 
(— RXS/N,R*xC/N), (— RxC/N, — RxS/N), et (R*S/N, —- RxC/N). Les seu- 
les différences résident éventuellement en une inversion et en un 
changement de signe de l’une ou l’autre des valeurs RxC/N et RxS/N. 
I n'est donc pas nécessaire de stocker toutes les valeurs C et S jusqu’à 
360 degrés ; il suffit de le faire jusqu’à 90 degrés et de tracer ensuite 
le cercle quart par quart, avec les transformations nécessaires sur les 
coordonnées, en fonction du numéro du quadrant. 

Dressons un tableau où l’on mettra en exergue les cas où des chan- 
gements sont nécessaires, en fonction du numéro q du quadrant 
(exprimé en binaire) : 


q q+l Signe de R+C/N Signe de R+xS/N Échange ? 
00 001 Plus Plus Non 
01 010 Plus Moins Oui 
10 011 Moins Moins Non 
11 100 Moins Plus Oui 


I n'est pas difficile de tirer des lois de ce tableau, où l’on a volon- 
tairement fait paraître les valeurs binaires de q+ 1. On constate qu'il 
faut changer le signe de R+C/N si le bit 1 de q est non nul, qu'il faut 
en faire autant de RxS/N si le bit 1 de q+1 est non nul, enfin qu’un 
échange des coordonnées est nécessaire lorsque le bit O0 de q est non 
nul. 
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Voilà la structure du programme révélée : c’est à la fois très simple 
et très subtil. C'est par ces astuces successives que l’on parvient à 
optimiser au maximum le tracé de cercles. 

Notons toutefois qu’on pourrait même diviser le cercle en huit. Mais 
le gain de temps est alors inexistant. 

Le programme, outre la table des cosinus et sinus (qui prend 36 
octets), utilise un emplacement de deux octets pour stocker le rayon. 


ROUTINES 


Intégration de l’extension 


On se référera à l'explication du PGCD et au Chapitre 4 pour l’ex- 
plication de cette partie. Le nom de l'instruction est CERCLE. 


Initialisation 


On vérifie d’abord que trois paramètres ont bien été transmis, faute 
de quoi un message d'erreur est fourni (38-39). Le tracé exigeant que 
l'origine soit placée au centre du cercle, les coordonnées de l'ori- 
gine courante sont demandées (40) et sauvées sur la pile (41-42). 
Ensuite on demande les coordonnées du centre (43-46) où l'origine 
est placée (47) ; notez que, de ce fait, les coordonnées du centre doi- 
vent être calculées par rapport au coin inférieur droit de l'écran, et 
non par rapport à l’origine courante ; si vous souhaitez l'inverse, fai- 
tes comme dans le listing de l'étoile, lignes 70 à 83. 

Ensuite, le rayon R est chargé dans DE (48-49). Il faut alors vérifier 
qu'il est inférieur à 512, c’est-à-dire que ses bits 9 à 15 sont nuls (donc 
les bits 1 à 7 de D). Pour cela on charge D dans A en annulant son 
bit O par un AND FEH (FEH=11111110B) (50-51) ; si le résultat n’est 
pas nul, c'est que R est trop grand, on passe alors à la routine d’er- 
reur (52). 

Le rayon est maintenu stocké dans l'emplacement qui lui est réservé 
(53) et le curseur graphique est placé au point A de la Figure 4, soit 
le point le plus à droite du cercle, en (R,0) (54-55). 

Le registre C, qui contiendra constamment le compteur de qua- 
drant q, est initialisé à zéro (56). 
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Tracer 


Cette boucle est destinée à tracer un quart de cercle dont le numéro 
est placé dans C. Elle contient elle-même une autre boucle, chaque 
quart comprenant dix-huit traits. Le compteur de cette deuxième bou- 
cle QUART est placé dans B. Il est initialisé à 18 (60). Le registre IX 
pointant sur les valeurs de C et S courantes est initialisé à chaque 
quart sur le début de la table (61). 

La boucle QUART est très simple. Elle calcule d’abord R+*C/N(62). 
Elle teste alors le bit 1 du compteur q, qui se trouve dans C (63) ; 
s’il n’est pas nul, le signe de R+xC/N est inversé, pour avoir —R+C/N 
(64) ; de toute façon, le résultat est stocké sur la pile (65). On recom- 
mence alors avec RxS/N (66) ; ici c’est le bit 1 de q+1 qu'il faut tes- 
ter, d’où une incrémentation (67) et une restitution (70). On récu- 
père la première valeur dans DE (71). Un échange est nécessaire si 
le bit O de q est non nul (72-73). Il ne reste plus alors qu’à tracer, 
en prenant soin de sauver le compteur BC (74-76), puis à recom- 
mencer ainsi dix-huit fois (77). 

Le quart étant fini, il faut passer au suivant. On incrémente donc 
C (78) et l’on vérifie qu’il n’atteint pas la valeur 4 (en testant son bit 
2) (79). Si ce n’est pas le cas, le tracé est poursuivi, quart par quart. 

Si C atteint 4, le tracé est terminé. Il ne reste qu’à restituer l’origine 
de départ (81-83), et à finir. 


Calcul 


Cette subroutine est destinée à calculer RxC/N et R+S/N. En entrée, 
IX pointe sur C ou S, qui est alors chargé dans HL (86-87) (en se rap- 
pelant que ces valeurs sont stockées sur un octet). IX est incrémenté 
pour pointer sur la valeur suivante (88). On charge dans DE le rayon 
R (89) et on multiplie (90) ; remarquez que c’est la routine IPRODABS 
qui a été choisie, car les nombres ici sont tous positifs : il est donc 
inutile de s’embarrasser de problèmes de signes. 

Le résultat obtenu doit être divisé par N = 128 =80H. Cela consiste 
simplement à en supprimer les bits O à 6 (décalage de 7 bits). Pour 
cela, on place les bits 8 à 15 dans A (91), on vide H (92), on place 
le bit 7 dans la retenue (93), puis dans le bit O de À, dont le bit 7 
est placé dans la retenue (ex-bit 15, nouveau bit 8) (94), puis dans 
le bit 0 de H (puisque c’est le nouveau bit 8) (95). Les nouveaux bits 
0 à 7 (ex-bits 7 à 14) se trouvant dans À, il faut les remettre dans L 
(96), CQFD, HL a été divisé par 128 en quelques microsecondes 
seulement. 
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Echange et erreur 


La routine échange se passe de commentaires. Pour erreur, voyez 
la barre. 


Æ COMPILATEUR/DÉCOMPILATEUR D'ÉCRAN 


PRÉSENTATION ET UTILISATION 


L'écran graphique, sur Amstrad, a une très haute résolution pour 
un ordinateur de ce type. C’est évidemment un avantage du point 
de vue de la finesse des dessins, mais cela occupe 16 K de mémoire. 
Dès lors, lorsqu'il s’agit de sauver une image écran sur support magné- 
tique, cela devient un inconvénient : sur cassette, le chargement est 
très long ; sur disquette, une face de disque peut juste stocker une 
dizaine d'images. 

Pour remédier à cet état de choses, le programme suivant donne 
un compilateur/décompilateur d'écran. Par une méthode exposée 
au paragraphe suivant, le compilateur transforme l'écran en un fichier 
binaire spécial en général moins long, parfois beaucoup moins long. 
Ce fichier peut ensuite être sauvé sur support magnétique. Pour res- 
tituer l’image, il suffit d'appeler le décompilateur. 

Ce double programme est présenté sous la forme de deux RSX qui 
admettent chacune un paramètre. Celui de COMPIL est l’adresse où 
le fichier compilé sera placé. Celui de DECOMPIL est au contraire 
l'adresse du fichier à décombpiler. 

Notez que ces adresses ne sont pas testées. Donc si vous choisis- 
sez une adresse trop proche du programme lors de la compilation, 
celui-ci va se recouvrir lui-même et se planter (une marge de 4000H 
est prudente). Si vous vous trompez d'adresse au moment de la 
décompilation, là encore vous risquez le plantage. 

L'utilisation est donc très simple : faites COMPIL, adresse pour com- 
piler, et IDECOMPIL, adresse pour restituer l’image. Après une com- 
pilation, la longueur du fichier compilé (nécessaire pour le sauver) 
se trouve en ses deux premiers octets ; vous l’aurez donc par la 
formule 


L=PEEK(adresse + 1)+256+PEEK (adresse) 


— 102 - 


Le gain en % par rapport à l’image non compilée sera donné par 
la formule 


G=100+(1-L/&3FDO) 


ce qui vous permettra d'apprécier les performances du compilateur 
(couramment 30 à 50 %). Si le gain est négatif (c’est théoriquement 
possible, voir paragraphe suivant), l’image a été rallongée : il faut la 
sauver non compilée. 

Encore un détail : lors de la compilation, ne placez pas le curseur 
sur la dernière ligne de l'écran : cela modifierait l'OFFSET écran et 
l’image serait décalée lors de la décompilation. 





FONCTIONNEMENT 

1 

2 

3 

4 

5 

6 ORG  GA3G0H 

7 LOAD GA3G2H 

8 

9 

19 INTRSX: EQU GBCDIH 

11 

12 A300 G109A3 LD BC, RSX 

13 A393 212GA3 LD HL, NOYAU 

14 A396 C3D1BC JP INTRSX ; INTEGRER 2 EXTENSIONS 
15 A399 1143 RSX: DEFW NOM 

16 A39B C324A3 JP COMPIL ; COMPILATEUR 

17 A3GE C379A3 JP DECOMPIL ; DECOMP ILATEUR 

18 A311 434F4D59 NOM: DEFB “COMPI" 

18 A315 49 

19 A316 CC DEFB ‘"L'+8OH 
29 A317 4445434F DEFB “DECOMPI" 
29 A31B 4D5949 
21 A31E CC DEFB "L'"+8GH 
22 A31F 9 DEFB @ 
23 NOYAU: DEFS 4 
24 
25 
26 ROMS : EQU GB99SH 
27 ECRAN: EQU 9C93GSH 
28 LONGUEUR:EQU  3FDGH ; LONGUEUR ECRAN 
29 
39 
31 A324 3D COMPIL: DEC A ; 1 PARAMETRE? 
32 A325 2949 JR NZ, ERREUR ; NON, "SYNTAX ERROR" 
33 A327 DD5691 LD D,(IX+1) 
34 A32A DD5E99 LD E, (IX+9) ; ADRESSE DU RESULTAT 
35 A32D D5 PUSH DE 
36 A32E 13 INC DE 
37 A32F 13 INC DE ; SAUTER DEUX OCTETS. 
38 A339 2199C9 LD HL, ECRAN 
39 A333 G1D93F LD BC, LONGUEUR 
49 A336 7E RUN: LD A, (HL) ; PRENDRE OCTET 
41 A337 23 INC HL 
42 A338 BE CP (CHL) ; EGAL AU SUIVANT? 
43 A339 CC53A3 CALL Z,EGAUX > OUT, TRAITER 

44 A33C 12 LD (DE), A 
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A33D 
A33E 
A33F 
A341 
4343 
A344 
A345 
A346 
A347 
A348 
A349 
A34A 
A34B 
A34C 


A34E EB 


A34F 
A359 
A351 
A352 


A353 
A354 
A356 
4357 
A358 
A35A 
A35B 
A35C 
A35E 
A369 
A361 
A362 
A364 
A365 
A366 
A367 
A368 
4369 
A364A 
A36B 
A36C 


A36D 
A36E 


A37Q 
A373 
A375 
A376 


A379 
A37A 
A37C 
A37F 
A382 
A383 
A384 
A387 
A388 
A389 
A38A 
A38D 
A38E 
A38F 
A399 


A392 
A393 
A394 
A395 
A396 


15 
18F4 


CDO@GB9 
1E92 
7B 
C355CB 


LD (BL),E 
INC HL 
LD (HL),D 


EGAUX: E 


D 

D,1 

LD E, A 
BCLE: D 
Z, 

H 


DEPASS 
L 
DEC BC 


JR NZ, FINBCLE 

LD A,E 

CP (HL) 

JR Z, BCLE 
FINBCLE: EX (SP),HL 

LD (HL),E 


DEPASS: D 

JR  FINBCLE 
ERREUR: CALL ROMS 
LD E,2 

LD A,E 
JP  @CB55H 


; DECOMPILATEUR 


DECOMPIL:DEC A 
JR NZ, ERREUR 
LD H,(IX+1) 
LD L, (IX+9) 
INC HL 
INC HL 
LD DE, ECRAN 
RUN2: LD A, (HL) 
INC HL 
CP (HL) 
CALL Z,OUTMULT 
RET 2 
LD (DE), A 
INC DE 
JR  RUN2 
OUTMULT: INC HL 
LD B, (HL) 
DEC B 
RET 2 
OUT: LD (DE),A 
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:BC <9 ? 
; NON, CONTINUER 


; ZERO 

; ENCORE 

; REPETITION 1 FOIS ... 
5...=FIN DU FICHIER 

; ADRESSE DEBUT 


; LONGUEUR 


; SAUVER LONGUEUR 


; SAUVER L’OCTET 
;D=256, DEPASSEMENT 


:BC <9 ? 

;» OUI, TERMINER. 

; RECUPERER OCTET 
; MEME OCTET? 

; OUI, CONTINUER. 


; SAUVER OCTET 

; DEUX FOIS 

; ET NBRE DE REPETITIONS 
; REMETTRE DANS DE. 

;ET RESTITUER HL. 

; SAUVER NBRE AU RETOUR 


; BONNE VALEUR 


; "SYNTAX ERROR" 
:6128 ET 664 SEULEMENT. 
;: 464: CA94H 


;1 PARAMETRE? 


; RECUPERER ADRESSE 


; PRENDRE OCTET 


> EGAL AU SUIVANT? 

; OUI, ALORS SORTIR 

; TROUVE LA FIN, TERMINE. 
; SORTIR OCTET 


; CONTINUER 


; SUIVANT 

; NOMBRE DE REPETITIONS 
>; EGAL À 1? 

; OUI, ALORS FIN. 


119 A397 13 INC DE ; FLAG z NON MODIFIE PAR 


129 A398 19FC DJNZ OUT ;...CES 3 INSTRUCTIONS. 

121 A39A 23 INC HL 

122 A39B C9 RET ; RETOUR ET SAUVER 1 FOIS ENC. 
123 

124 

125 END 


DEBUT: A3G9H 
FIN: A39BH 


VERIFICATION POUR CHARGEUR BASIC: 


SOMME: 15671 
PRODUIT: 1258988 


Le fonctionnement de ce compilateur est basé sur la simplicité rela- 
tives des images écran. Si vous avez la curiosité d'explorer la mémoire 
écran, vous verrez qu'il s’y trouve fréquemment de longues séries 
d'octets tous semblables (des zéros en particulier) dus au fait que le 
fond graphique n'est jamais totalement recouvert. 

L'idée est alors de remplacer une série de N octets de valeur X par 
les deux octets X et N. Les octets isolés seront simplement sauvés seuls. 

Mais un problème se posera à la décompilation : comment le 
décompilateur distinguera-t-il les octets de type N (nombre de répé- 
titions) des octets de type X ? Ces derniers prenant toutes les valeurs 
possibles pour un octet, il faut trouver un moyen de les distinguer. 

La solution choisie est simple. Lorsqu'un octet est isolé (différent 
de celui qui le suit), il est sauvé tel quel. Lorsqu'une série de N octets 
à X est rencontrée, on sauve trois octets : X, X, N. En effet, les octets 
isolés sont nécessairement suivis, dans le fichier compilé, d’une valeur 
différente. Dès lors, si deux octets se suivant sont égaux, le décom- 
pilateur saura qu’il s’agit d’une série et il ira chercher le troisième 
pour savoir combien il y a d’octets semblables. 

Ainsi la série de nombres suivante : 


01 FE AB 00 00 00 00 00 45 79 79 79 79 88 34 10 10 42 
sera compilée ainsi : 
01 FE AB 00 00 05 45 79 79 04 88 34 10 10 02 42 


soit un gain de 2 octets sur 18 (11 %) ; les nombres N ont été soulignés. 

On notera une chose : les séries de deux octets sont compilées sur 
trois octets. Ce sont donc les seules qui représentent un allongement 
du fichier. De ce fait, le fichier compilé peut être plus long que le 
fichier de départ (échec de la compilation). En fait, cela n'arrive jamais 
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sur une image écran, sauf fait exprès. Par contre, cela interdit de com- 
piler ainsi un fichier ASCII ou un programme. 


ROUTINES 


Intégration des extensions 


Pour cette partie (10-24), on se reportera à PGCD et au Chapitre 
4. Notons que deux extensions sont ici intégrées à la fois, de noms 
COMPIL et DECOMPIL. 


Compil 


Dès le début du programme, on vérifie qu’un paramètre a bien été 
transmis (31-32). Ce paramètre (adresse du fichier compilé) est placé 
dans DE (33-34) et empilé (35). DE est incrémenté deux fois, afin de 
laisser la place pour stocker la longueur du fichier compilé (36-37). 
HL est chargé avec l'adresse de l'écran, BC avec le nombre d’octets 
à traiter (38-39) (les 30H derniers octets, à zéro, ne sont pas comp- 
tés). Ces allocations de registres resteront les mêmes dans le pro- 
gramme principal : HL contient l’adresse de l’octet suivant à traiter. 
DE celle de l'emplacement suivant dans le fichier compilé, et BC le 
nombre d'octets restant à traiter. 

La boucle RUN est très simple. L'octet à traiter est chargé dans A 
(40) puis comparé à celui qui le suit (41-42). En cas d'égalité, on a 
une série, un traitement spécial s'impose (43). Sinon, l’octet est sim- 
plement sauvé (44-45) puis BC est décrémenté. Si ce compteur n’est 
pas encore négatif (on teste son bit de signe pour cela (47)), on recom- 
mence la boucle (48). 

Lorsque la compilation est finie, on place en fin de fichier compilé 
la série 00 00 01 (49-55) caractérisant la fin du fichier (en effet il ne 
peut y avoir de série type X X 01 dans le fichier compilé, cela signi- 
fierait une répétition une seule fois !). L'adresse du début du fichier 
compilé est alors récupérée (56) ; celle de la fin se trouvant dans DE, 
il suffit de faire la différence pour connaître la longueur (57-59, en 
notant que la retenue n’est pas mise en 58, à cause de 49 et 55). Cette 
longueur est, comme on l’a dit, stockée en début de fichier compilé 
(60-62). Le programme s'arrête en 63. 
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Égaux 


Cette routine traite le cas des séries d’un même octet X (qui se trouve 
dans À en entrée). Cet octet est placé dans E (67), après que DE a 
été sauvé sur la pile (65). D est alors initialisé à 1 : c'est le compteur 
de répétitions N. La boucle BCLE est destinée à calculer la valeur de 
‘N. Des comparaisons successives sont faites (74-75) avec les incré- 
mentations nécessaires (68, 70, 71). La boucle s’interrompt dans trois 
cas : si le compteur D dépasse un octet (69) (il est alors restitué par 
Depass), si l’on arrive à la fin de l’écran (72-73), et naturellement si 
l’on atteint la fin de la série (76). Dans ces trois cas on passe à Finb- 
cle. A cet instant, on place dans HL l’adresse courante du fichier com- 
pilé qui était sur la pile (77) et l’on place dans ce fichier deux fois 
la valeur X (78-81) ; puis le nombre de répétitions N est placé dans 
A (82) avant de redonner à DE (83) puis HL (84) leurs valeurs de poin- 
teurs et de revenir au programme principal (85) ; ce n’est qu’au retour 
que N sera sauvé (44). 


Depass et erreur 


En cas de dépassement de D (arrive à 256), on décrémente D pour 
lui redonner la valeur maximale 255 et l’on passe à Finbcle. De ce 
fait, une série de plus de 255 octets semblables sera compilée sous 
la forme de plusieurs triades. 

Pour erreur, voyez PGCD. 


Décompilation 


On vérifie d’abord qu’un paramètre a bien été transmis (98-99). 
Ce paramètre (adresse du fichier à décompiler) est placé dans HL 
(100-101). On saute alors les deux octets de longueur (102-103) et 
l’on place dans DE la valeur initiale de l'emplacement du décom- 
pilé, à savoir le début de l’écran (104). 

La boucle RUN2 est très simple. On charge un octet et on le com- 
pare au suivant (105-107). S'il ne lui est pas égal, on le sort tout sim- 
plement sur l'écran et l’on recommence (110-112). Sinon, on passe 
à Outmult (voir ci-après). Lorsque cette routine donne un flag z nul 
en sortie, c’est que l’on est arrivé au bout du fichier : la décompila- 
tion cesse alors (109). 
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Outmult 


Cette routine a pour but de sortir à l’écran l'équivalent des triades 
X X N, soit des séries de N fois l’octet X (qui se trouve dans A en 
entrée). 

Pour cela, on saute le second X (114), puis l’on charge dans B la 
valeur de N (115). Celle-ci est aussitôt décrémentée (116). Si elle 
s'avère égale à 1, alors la fin de fichier est rencontrée (117, puis 109). 
Sinon, notez que le flag z restera à la même valeur (non mis) jusqu’au 
retour. La petite boucle Out ne sort que N—1 fois l’octet X à l'écran, 
B n'ayant pas été incrémenté à nouveau (118-120), et ce parce que 
la dernière sortie de l’octet X se fera au retour (en 110). Avant ce 
retour, HL est pointé sur l’octet suivant à décompiler (121). 


M EXEMPLE D’INTERRUPTION : CHRONOMÈTRE PERMANENT 


PRÉSENTATION ET UTILISATION 


Les Amstrad présentent un système d'interruption très intéressant 
et très complexe qui permet de nombreuses choses. A titre d’exem- 
ples, c’est par elles que sont gérées les boucles EVERY du BASIC, que 
les chronomètres sont incrémentés, que les couleurs clignotantes sont. 
gérées, que les touches du clavier sont testées, etc. Sur ce sujet, voyez 
aussi quelques détails au Chapitre 3. 

Les routines système permettent trois types d’interruptions. Les plus 
intéressantes, à mon sens, sont celles liées au retour de spot du CRT 
(contrôleur vidéo), qui se produisent tous les 1/50 de seconde. En 
effet, elles permettent des sorties sur l’écran tout en évitant les effets 
désagréables que cela peut parfois produire. Toutefois les interrup- 
tions normales (1/50 de seconde aussi) peuvent être aussi utiles. 

Nous allons voir ici un exemple d'interruption. Il s’agit d’un chro- 
nomètre permanent, c’est-à-dire qu’il reste en haut et à droite de 
l'écran obstinément tant que vous n’appelez pas la routine qui le 
débranche. Il est possible de le régler comme une horloge. Il donne 
les heures, les minutes et les secondes. Seules les lectures sur sup- 
port magnétique l’interrompent un court instant, rien d'autre ne l’em- 
pêche de continuer, et en particulier aucune instruction BASIC, ce 
qui est éminemment précieux. Si l’écran est effacé, le chronomètre 
réapparaît à la seconde suivante. 
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L'utilisation est très simple. Un appel CALL &A400 met le chrono- 
mètre en route. Par contre l’appel CALL &A4A4 arrête le chronomè- 
tre (jusqu’à le faire reprendre par la précédente). Pour mettre le chro- 
nomètre à une heure précise, c’est à peine plus compliqué : il faut 
poker les codes ASCII des chiffres dans les cases mémoire d’adres- 
ses AOOEH à A015H, en commençant par les secondes. Ainsi, pour 
mettre le chronomètre à 12 h, 45 mn, 10 5, il faut placer dans ces 
cases mémoire, dans l’ordre : 01:54:21, sans oublier les deux (:). 

Dans le même genre, vous pouvez tirer grand parti des interrup- 
tions : objets mobiles, couleurs clignotant à des vitesses différentes, 
curseur clignotant, etc. 


FONCTIONNEMENT 


= *%X%X  CHRONOMETRE  **%x%* 22 
= ***%X PERMANENT *x%% == 


PRINT: EQU @BB5AH 
LOCATE: EQU GBB75H 
LOCATE?: EQU @BB78H 
TCRON : EQU 2BB7BH 
TCROF : EQU ©BB7EH 
CRVIS: EQU GBBB8AH 
PEN: EQU @BB90H 
PEN?: EQU G©@BB93H 
SLIMITS: EQU G@BC17H 
CRTEVIN: EQU @BCD7H 


DM ES ES ES bed het ft De hs 
© © © - ® où B W N ++ © D D -J ON Où À CO N + 


21 CRTEVDEL:EQU @GBCDDH 

22 

23 

24 ; INITALISATION DE L'’EVENEMENT 

25 

26 A49G 219CA4 LD HL, BLOC ; ADRESSE DU BLOC 

27 A493 9681 LD B, 81H ; ASYNCHRONE, PRIORITAIRE. 
28 A495 GES LD c,g ; EN RAM. 

29 A497 111644 LD DE, CHRONO ; ADRESSE D’EXECUTION 
39 A4GA C3D7BC JP CRTEVIN ; INITIALISER 

31 

32 

33 A49D O9 TABLE: DEFB © ; EMPLACEMT DU COMPTEUR 
34 A4QE 30393A30 DEFB “OG:@0:@9" ; CHRONO A ZERO 

34 A412 303A3039 

35 

36 A416 F3 CHRONO: DI ; PAS D’ INTERRUPTIONS 
37 A417 F5 PUSH AF ; SAUVER CONTEXTE 

38 A418 3AGDA4 LD A, (TABLE) ; COMPTEUR 

39 A41B 3C INC A ; INCREMENTER 

49 A41C FE32 CP 59 ; ARRIVE A CINQUANTE? 
41 A41E DA96A4 JP C,FIN ; NON, TERMINER 

42 A421 C5 PUSH BC 

43 A422 D5 PUSH DE 

44 A423 E5 PUSH HL ; SAUVER CONTEXTE 

45 A424 21SEA4 LD HL, TABLE+1 ; PREMIER CARACTERE. 

46 A427 9692 LD B,2 >; EXECUTER 2 FOIS (SEC+MIN) 
47 A429 34 COMP6S: INC (HL) ; INCREMENTER UNITES 


115 
116 
117 
118 
119 
129 
121 


A42A 
A42C 
A42D 
A42F 
A431 
A432 
A433 
A435 
A436 
A438 
A43A 
A43B 
A43C 
A43E 
A43F 
A449 
A442 
A444 
A446 
A448 
A44A 
A44B 
A44c 
A44E 
A44F 
A45Q 
A452 
A454 
A456 
A457 
A458 


A459 
A45C 
A45D 
A469 
A462 
A465 
A468 
A469 
A46C 
A46F 
A470 
A472 
4473 
A475 
A478 
A47A 
A47D 
A47E 
A481 
A482 
A484 
A485 
A488 
A489 
A48C 
A48F 
A492 
A493 
A494 
A495 
A496 
A499 
A49A 
A49B 


A4A4 
A4A7 


CD93BB 
F5 
CD8ABB 
3E03 
CD9GBB 
CD78BB 
E5 
CD7EBB 
CD17BC 
78 
D658 
67 
2E91 
CD75BB 
2608 
2115A4 


CD3GBB 
CD7BBB 
CDB8ABB 
E1 
D1 


219CA4 
C3DDBC 


VERIF24: 


SORTIE: 


BCLE: 


FIN: 


BLOC: 


DESARM: 


LD 


END 


A, "9" ; VALEUR MAXIMALE 

(HL) ; DEPASSEE®? 
NC, SORTIE ; NON, OK. 

(HL), "2" ; REMETTRE UNITES À @. 
BL ;DIZAINES 

(HL) ; INCREMENTER AUSSI 
ÀA,"5" ; VALEUR MAXIMALE 

CHL) ; DEPASSEE? 
NC, SORTIE ; NON, OK. 

(HL), "@" ; REMETTRE DIZAINES A G. 
BL ; SAUTER LE (:) 
HL ; CHIFFRE SUIVANT 
COMP69 ; ENCORE POUR MINUTES 
(HL) ; INCREMENTER UNITES HEURES 
A, (HL) 

"a" ; ATTEINT QUATRE®? 

Z, VERIF24 ; OUI, VERIFIER SI 24. 
"9" ; VALEUR MAXIMLAE ATTEINTE? 
C, SORTIE ; NON, ALORS OK. 

(HL), "g" ;UNITES HEURES A ZERO 
HL ;DIZAINES D'HEURES 

(HL) ; INCREMENTER 
SORTIE 3;ET SORTIR. 
BL ;DIZAINES D'HEURES 
A, (HL) 
2 ; ATTEINT 2 (DONC 24)? 
NZ, SORTIE ; NON, OK. 
, 2" ; REMETTRE A ZERO 
(HL),A ;DIZAINES 
BL ;ET UNITES 
(HL), A 
PEN? ; ENCRE ACTUELLE? 
AF ; SAUVER 
CRVIS ; PLACER UN CURSEUR. 
A,3 ; COULEUR 3 
PEN ;...POUR ECRIRE CHRONO. 
LOCATE? ; POSITION COURANTE 
HL ; SAUVER 
TCROF ; PAS AFFICHER CURS 
SLIMITS ; TAILLE ECRAN 
4,B ; DERNIERE COLONNE 
8 ; HUIT CARACTERES 
H, A ; COTE DROIT 
L,1 ; PREMIERE LIGNE 
LOCATE ; COIN SUPERIEUR DROIT 
B,8 ; HUIT CARACTERES 
HL, TABLE+8 ;DIZAINES D'HEURES 
A, (HL) ; PRENDRE CARAC. 
PRINT ;ET L’ECRIRE 
HL ; AU SUIVANT 
BCLE 
HL ; ANCIENNE POSITION CURSEUR 
LOCATE ; RESTITUER 
AF ; ANCIENNE COULEUR ECRITURE 
PEN ; RESTITUER 
TCRON ; REAUTORISER CURSEUR 
CRVIS ; METTRE LE CURSEUR 
HL 
DE 
BC ; RESTITUER CONTEXTE 
A ; COMPTEUR A ZERO 
(TABLE), A ; SAUVER COMPTEUR 
AF ; RESTITUER 
; REAUTORISER INTERRUPTIONS 

8 ; PLACE POUR BLOC EVENT 
HL, BLOC ; ADRESSE BLOC 
CRTEVDEL >; ENLEVE LE BLOC 
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DEBUT: A49GH 
FIN: A4A9H 


VERIFICATION POUR CHARGEUR BASIC: 


SOMME: 18642 
PRODUIT: 1724196 


Comme on l'a dit, tout est basé sur les interruptions. À chaque appel 
de la routine principale, tous les 1/50 de seconde, un compteur, placé 
en A0ODH (premier octet de la table), est incrémenté. Tant qu'il n'at- 
teint pas la valeur 50, rien ne se passe. 

S'il l’atteint, il est remis à zéro et l'horloge est incrémentée. Pour 
cela on incrémente le chiffre des unités des secondes. S'il dépasse 
9, on le remet à zéro et on incrémente celui des dizaines ; si celui-ci 
dépasse 5, on le remet aussi à zéro et on incrémente les minutes, etc. 

Une fois l'horloge incrémentée, on l'écrit en haut et à droite de 
l'écran, dans la couleur 3. Cela exige de placer un pavé curseur à 
la position courante, car on est obligé de déplacer le curseur pour 
écrire l’horloge. De même, il faut en sauver puis en restituer la posi- 
tion courante et aussi la couleur d'écriture. 

Comme pour toute interruption, il est nécessaire de ne modifier 
aucun registre (‘sauver le contexte”’). Le groupe 1 est donc embpilé, 
puis dépilé. 


ROUTINES 


Initialisation de l’événement 


On se reportera à la description de CRTEVIN au Chapitre 8 pour 
plus de détails. L'événement a été classé asynchrone (c’est-à-dire non 
soumis à une file d'attente) et prioritaire, afin qu'aucun décalage ne 
vienne troubler l'heure courante (27). Le bloc est en fin de programme 
et comprend # octets (26 et 115). 


Incrémentation de l’horloge 


Dès le début, les autres interruptions sont interdites (36) pour évi- 
ter tout problème, puis l’accumulateur est empilé (37). On y charge 
alors le compteur (38), qui est incrémenté (39). On le compare alors 
à cinquante (40). S'il n’atteint pas cette valeur, on passe à la fin (41), 
où le compteur est sauvé, l’accumulateur restitué et les interruptions 
réautorisées avant la sortie (110-113). 
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Si le compteur atteint 50, les autres registres sont empilés (42-44) 
et HL est placé sur le premier code de l’horloge, à savoir les unités 
des secondes (ces codes sont classés à l’envers). Ce code est incré- 
menté (46) ; s’il n’atteint pas sa valeur maximale de ‘‘9”’, on passe 
à la sortie à l’écran de l’horloge (48-50). Sinon, il faut remettre ce 
chiffre à zéro (51) et incrémenter le chiffre suivant, à savoir les dizai- 
nes de secondes (52-53). Là encore, si la valeur maximale de ce chif- 
fre (qui est ‘‘5’’, car le nombre de secondes ne doit pas dépasser 59) 
n’est pas atteinte, on sort (54-56), sinon il faut recommencer avec 
les minutes ; la même routine est donc effectuée deux fois (46 et 60). 
Si les minutes dépassent 59 aussi, il faut incrémenter les heures. 

Pour les heures, même principe, mais il faut en plus vérifier que 
la valeur 24 n'est pas atteinte. De ce fait, si le chiffre des unités atteint 
4, on passe à Verif24 (63 — 64) après incrémentation (61), où l’on teste 
le chiffre des dizaines (71-73). S'il n’atteint pas ‘‘2””’, tout va bien (74), 
sinon il faut mettre les heures à zéro (75-78) avant de passer à la 
sortie. 


Sortie 


Cette routine écrit l'horloge à l'écran. La couleur d'écriture est 
d’abord sauvée (80-81), puis un curseur est placé à l'écran (pour qu’on 
ne voie pas que le curseur va être déplacé) (82), la couleur d'écri- 
ture est mise à trois (83-84). La position courante du curseur est empi- 
lée (85-86) et l'affichage du curseur est interdit (afin qu’on ne le voie 
pas pendant l'écriture) (87). Pour se placer dans le coin supérieur droit, 
il faut connaître le numéro de la dernière colonne (en fonction du 
mode) (88-89) et lui soustraire les huit caractères de l'horloge (90) 
avant de positionner le curseur (91-93). Il ne reste qu’à sortir, par une 
petite boucle, les huit caractères (94-99) en commençant par la fin, 
pour afficher les heures d’abord (95) et en descendant (98). 

Cela fait, il faut remettre le curseur à sa place (100-101), en réauto- 
riser l'affichage (104-105) et replacer la bonne couleur d'écriture 
(102-103). Enfin les registres sont restitués (106-108) et le compteur 
remis à zéro (109-110) avant la sortie (111-113). 


Desarm 


Cette routine supprime le chronomètre. Voir la description de 
CRTEVDEL. Le chronomètre n’est pas effacé. 
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M LES CALCULS SUR LES ENTIERS POUR 664 ET 6128 


Comme vous le verrez en fin de Chapitre 8, les CPC 464 sont dotés 
de quelques routines permettant des calculs sur des entiers, en fin 
de ROM inférieure. Ces routines n'existent plus sur les CPC 664 et 
6128. Pour compenser cette absence, en voici le listing complet et 
commenté. 

Il serait ici hors de propos d'expliquer les algorithmes utilisés, d’ail- 
leurs fort simples. Je pense que les commentaires suffiront à vous les 
faire comprendre. 

Ce listing clôt ce chapitre. 








1 

2 ARITHMETIQUE 
3 AVEC ENTIERS 
4 5 =Z===ZZ=ZZZ=========================-= 
5 

6 

7 ORG  GA5GGH 

8 LOAD GA5GOH 

9 

19 

11 ; METTRE LE SIGNE DANS B 
12 

13 A5@Q 7C BSIGNE: LD A,H 

14 A591 B7 OR A 

15 A592 FAGBAS JP M,SUITES 
16 A595 B9 OR B 

17 A596 FABFAS5 JP M, ICHSGN 
18 A599 37 SCF 

19 A59A C9 RET 
29 A59B EE89 SUITES: XOR G82H 
21 AS9D B5 OR L 
22 ASSE C9 RET NZ 

23 A59F 78 LD A,B 
24 A519 37 SCF 
25 A511 8F ADC A,A 
26 A512 C9 RET 
27 
28 ; ADDITION HL=HL+DE 
29 

30 A513 B7 OR A 
31 A514 ED5A ADC HL,DE 

32 A516 37 SCF 

33 A517 EQ RET PO 

34 A518 F6FF OR  GFFH ; POSITIONNER A ET c 
35 A51A C9 RET 

36 
e ; SOUSTRACTION HL=DE-HL 
8 

39 A51B EB EX  DE,HL 

49 
41 ; SOUSTRACTION HL=HL-DE 
42 
43 A51C B7 OR A 
44 A51D ED52 SBC HL,DE 

45 A51F 37 SCF 
46 A529 EG RET PO 

47 A521 F6FF OR  G@GFFH 
48 A523 C9 RET 

49 

59 ; MULTIPLICATION (AVEC SIGNE) 
51 
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112 
113 
114 
115 
116 
117 
118 
119 
129 
121 
122 
123 
124 
125 


A524 
A527 
A52A 
A52D 
A52F 


A539 
A531 
A532 
A533 
A534 
A537 
A538 


A53B 
A53C 
A53D 
A53F 
A549 
A541 
A542 
A543 
A544 
A545 
A546 
A547 
A548 
A549 
A54A 
A54B 
A54C 
AS4E 
A559 
A551 
A552 
A554 
A555 
A556 
A557 
A559 
A55A 
A55B 
A55D 
A55F 
A569 
A562 
4563 
A564 


A565 
A568 
A56B 


A56C 
A56D 
A579 
A571 
A572 
A574 


A577 
A578 
A579 
A57A 


CD3SA5 
CD3BA5 
D2S0A5 
F6FF 
ca 


7C 
AA 
47 
EB 
CDBCAS5 
EB 
C3BCA5 


CD744A5 
DABGAS 
C9 


ac 
CD74A5 
EB 

41 
18F4 
CD3SA5 


7A 
B3 
c8 
C5 


CALL SIGNERES 
CALL IPRODABS 
JP NC, BSIGNE 
OR SFFH 

RET 


; CALCULER SIGNE DU RESULTAT 


SIGNERES : LD A,H 


XOR D 

LD B,A 
EX DE, HL 
CALL ABS 
EX DE, HL 
JP ABS 


; MULTIPLICATION (SANS SIGNE) 


IPRODABS : LD A,H 


OR A 

JR Z, SUITE1 

LD A,D 

OR A 

SCF 

RET NZ 

EX DE, HL 
SUITE1: OR L 


RET 2Z 

LD A,D 

OR E 

LD A,L 

LD L,E 

LD H,D 

RET 2Z 

CP 3 

JR C, CASPART 


BCLEQ: ADC A,A 
JR NC, BCLEG 
BCLE1: ADD HL,HL 
(a 


A, A 
JR NC, SUITEZ2 
ADD HL,DE 
RET C 
SUITE2: CP 280H 
JR NZ, BCLES 


CASPART: CP 1 
RET 2Z 
ADD HL,HL 
;DIVISION (AVEC SIGNE) 
CALL DIVIS 
FINDIV: JP C, BSIGNE 
RET 


: DIVISION MODULO 


LD C,H 
CALL DIVIS 
EX DE, HL 
LD B,C 
JR FINDIV 


DIVIS: CALL SIGNERES 
; DIVISION EUCLIDIENNE 
LD A,D 
OR E 


RET 2Z 
PUSH BC 


MAS 


; STOCKER SIGNE DANS B 


;:HL< 256? (H=@) 
:OK, CONTINUER 


3DE <256? 


; NON, DEPASSEMENT 

; PLUS PETIT DANS HL 

; HL=9? 

>; OUI, RESULTAT @, FIN. 


:DE =9 ? 
; MULTIPLICATEUR DANS A 


; MULIPLICANDE DANS HL 
; NUL, TERMINE 

>; INFERIEUR A 3? 

>; OUI, CAS PARTICULIER 


; DECALER A 

; CONTINUER JUSQ DEPASST 
; DOUBLER HL 

; DEPASSEMENT, TERMINE 

; DECALER 

;BIT NUL, BOUCLER 

; AJOUTER ENCORE 

; DEPASSEMENT, TERMINE 

» FINI? 

; NON, CONTINUER 


; MULTIPL. EGAL A 1? 


; OUI, TERMINE 
> EGAL A DEUX, DONC DOUBLER 


>; RESTE DANS HL 


3; QUOTIENT NUL, RETOUR 
; SAUVER SIGNE RESULTAT 


126 
127 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
171 
172 
173 
174 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
199 
191 
192 
193 
194 
195 
196 
197 
198 
199 


A57B 
A57C 
A57E 
A57F 
A589 
A582 
A583 
A584 
A586 
A587 
A589 
A58B 
A58C 
A5BD 
A58E 
A58F 
A591 
A592 
A593 
A595 
A596 
A597 
A598 
A599 
A59A 
A59D 
A59E 
A5AG 
A5A2 
ASA3 
A5A4 
A5A5 
A5A6 
A5A7 
ASAB 
A5A9 
ASAA 
A5AB 
ASAC 
A5AD 
ASAE 
A5B9 
A5B1 
A5B2 
A5B3 
A5B4 
AS5B5 
A5B6 
A5B7 
A5B9 
A5BA 
A5BB 


A5BC 
A5BD 
A5BE 


A5BF 
A5C9 
A5C1 
A5C2 
A5C3 
A5C4 
A5C5 
A5C6 
A5C7 
A5C8 
A5CA 


EB 
2691 
7C 
B7 
2999 
7A 
BD 
3895 
65 
2E99 
2699 
7B 
95 
7A 
9ac 
3895 
24 
29 
30F6 
3F 
3F 
78 
44 
4D 
219009 
3D 
2003 
1817 
29 


SUITE3: 


SUITE4: 


BCLE2 : 
SUITES: 


SUITE6: 


FINDVEUC: 


; CALCULER VALEUR ABSOLUE 


ABS: 


; CHANGEMENT DE SIGNE DE HL 


ICHSGN: 


J 

SCF 
POP 
RET 


LD 
OR 
RET 


XOR 
SUB 
LD 


ne) 
& 
u 
Le 
7% 


DE, HL 
B,1 
A,H 


A 
NZ, SUITE3 
A,D 


un 
(= 
ei 
3 
tm 
œo 


WAWA 
NULO mHoSt*t 
CG 
4 
3 
[ol 
» 


BL, HL 
NC, SUITE3 


, 


aw> 
FrIw 


, 


HL,@ 


A 

NZ, SUITES 
FINDVEUC 
HL, HL 


œ 


>w 


> WH>U0UwWO W> AQ> 


UITE6 


FHA>vAa>>Aa>a 


> 


A 
NZ, BCLE2 
BC 


A,H 
A 
P 


> >. 


a LEE» 


; TESTER SIGNE DE HL 
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; DECALE HUIT FOIS 
; POSITIONNER RETENUE 


; DE<HL? 

; OUI, CONTINUER 

; RETENIR UN DECALAGE 
; NON, DECALER HL 

; POURSUIVRE 


; EGAL A UN? 
;NON, POURSUIVRE 
; OUI, TERMINE 

; DECALER 


; PLUS GRAND, CONTINUER 


; RETIRER DIVISEUR 


; INCREMENTER QUOTIENT 


; PAS FINI, POURSUIVRE 


; POSITIF? 
; OUI, TERMINE 


; NUL? 


200 
291 
292 
293 
294 
295 
296 
207 
298 
299 
219 
211 
212 
213 
214 
215 
216 
217 
218 
219 
229 
221 
222 
223 
224 
225 
226 
227 
228 
229 
239 


A5CB 
A5CC 
AS5CD 
ASCE 
ASCF 
A5D9 
A5D1 
A5D2 
A5D3 


A5D4 
A5D5 
A5D6 
A5D7 
AS5DA 
ASDB 
A5DC 
A5DD 
ASDE 
ASDF 
ASEQ 
ASE2 
ASE3 
AS5E4 
A5E6 


FINCOMP : 


SUITE: 


>>2x 


>»NTA>>D> 


Z, FINCOMP 


,» 


E 
NZ, FINCOMP 


>ZOU >Q0>>U>TU 
>> 
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; DECALER 


;NEGATIF, TERMINE 
; NUL? 
: OUI, TERMINE 


; METTRE 1 DANS A AVEC FLAGS 


; MEME SIGNE, TESTER 
; RETENUE A 1 

; POSITIONNER 
3;NEGATIF, TERMINE 

; METTRE A UN 


; DIFFERENTS, POSITIONNER 


; IDEM 
; EGAUX. 


7. UN GRAND PROGRAMME : 
ANNUAIRE TELEPHONIQUE 


Voici maintenant le listing d’un grand programme : un annuaire 
téléphonique. 

Ce programme ne peut évidemment recevoir ici des explications 
aussi détaillées que pour les précédents. Seules l’utilisation et quel- 
ques grandes lignes de programmation seront données. Les commen- 
taires des lignes suffiront, j'espère, à vous faire comprendre le reste. 

La version donnée ici est prévue pour disquette. Les possesseurs 
de lecteur de cassette pourront faire quelques adaptations (messa- 
ges, etc.). 

Vu la longueur du fichier, il doit être placé sous ZEN, en 3000H 
avant d'être sauvé mais exécuté en 9000H, et sous DAMS, il faut le 
diviser en plusieurs parties. 

Pour ZEN, la table des symboles a été réduite afin d’éviter un 
dépassement. 


B UTILISATION 


Ce programme gère un annuaire téléphonique formé de petits grou- 
pes (appelés références) constitués d’un nom, d’un prénom, d’un 
numéro de téléphone et éventuellement de cinq lignes de renseigne- 
ments supplémentaires. 

Chargez le programme assemblé et stocké sur une disquette, puis 
lancez-le. Un en-tête est affiché. Dès le début, le programme va 
rechercher sur la disquette un annuaire (du nom de ANNFICH). S'il 
ne le trouve pas, il vous proposera de changer de disquette ou d’ini- 
tialiser un nouvel annuaire. 

On arrive ensuite au menu principal. Vous disposez de cinq choix. 
Le choix que vous pouvez sélectionner directement en appuyant sur 
la touche (RETURN) clignote. Pour choisir une autre possibilité, 
appuyez sur une touche quelconque, sauf (ESC) et (RETURN). Le choix 
suivant se mettra alors à clignoter, et ainsi de suite si Vous continuez 
jusqu'à ce que le choix que vous désirez clignote ; il ne vous reste 
plus qu’à le sélectionner en appuyant sur (RETURN). 

Donc cinq choix s'offrent à vous, qui sont : 


e CONSULTER, c’est-à-dire lire l'annuaire. 

e ENREGISTRER, c'est-à-dire placer une nouvelle référence dans 
l'annuaire. 

e MODIFIER, c'est-à-dire changer tout ou partie d’une référence. 
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e SUPPRIMER, c'est-à-dire retirer une référence de l’annuaire. 


e FIN, c’est-à-dire sauver l'annuaire sur disquette puis revenir 
au BASIC. 


Si vous choisissez de consulter, l'annuaire vous propose de cher- 
cher un nom ou un numéro de téléphone (selon ce que vous con- 
naissez). Une fois votre choix fait, vous devez rentrer en bas ce nom 
ou ce numéro que vous cherchez ; pour le nom, vous pouvez n'en 
rentrer que les trois premières lettres. Cette entrée faite, le programme 
vous dit combien il a trouvé de références lui correspondant et les 
affiche s'il y en a. 

Ensuite, une fin qui est la même pour presque tous les choix du 
menu principal : le programme vous propose de recommencer l’opé- 
ration (donc de chercher une autre référence) ou de revenir au menu 
principal. 

Si vous choisissez (dans le menu principal) d'enregistrer, le pro- 
gramme va vous demander successivement : 


e Le nom (obligatoire) : pas plus de 32 caractères, obligatoirement 
des lettres ou l’un des caractères suivants : espace, &, ’, virgule, 
point ou tiret (—). Le nom est transformé en majuscules. 


e Le prénom (facultatif) : pas plus de 16 caractères, obligatoirement 
des lettres ou des tirets. Il est transformé en minuscules, sauf 
l’initiale. 

e Le numéro de téléphone (obligatoire) : pas plus de 16 caractères, 
obligatoirement des chiffres ou des espaces. 


e Cinq lignes d'adresse (facultatives). Ce champ est libre, mais cha- 
que ligne ne doit pas contenir plus de 40 caractères (une ligne) ; 
vous pouvez y mettre les renseignements complémentaires que 
vous souhaitez. Si vous rentrez une ligne vide, l'enregistrement 
s'arrête. 


Le choix qui vous est alors proposé est semblable à celui qui suit 
‘Consulter’, mais vous pouvez en outre sauver l'annuaire. 

La suppression a un déroulement très simple : le nom à supprimer 
vous est demandé ; puis, une fois trouvé et affiché, une confirma- 
tion est demandée. Si vous répondez positivement, la référence est 
effacée. 
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La modification commence de même, puis les lignes de la référence 
à modifier sont éditées les unes après les autres. Pour le reste, tout 
se déroule comme à l'enregistrement. 


BH FONCTIONNEMENT 


STRUCTURE DE L'ANNUAIRE 


Le fonctionnement général est assez simple, une fois choisies les 
structures d'enregistrement de l’annuaire. 

Cette structure est relativement complexe. Elle se décompose en 
deux listes, appelées liste 1 et liste 2 dans la suite. 

La liste 1, première présente en mémoire en 2006H, se compose, 
si l’annuaire contient N références, de N pointeurs de 9 octets cha- 
cun. Ces pointeurs contiennent : les trois premières lettres du nom 
(octets 0 à 2), puis quatre nombres qui sont les derniers nombres du 
numéro de téléphone (chaque nombre représente deux caractères 
du numéro, donc est compris entre O et 99) (octets 3 à 6), enfin 
l'adresse du bloc correspondant (octets 7 et 8). 

Ce bloc est composé de toutes les lignes de la référence, chacune 
précédée de sa longueur, et se termine par un zéro. L'ensemble de 
tous les blocs constitue la liste 2. 

On voit donc la différence entre les deux listes : la liste 1 contient 
les renseignements qui permettront aisément la recherche, d'autant 
que ses éléments ont une longueur constante de 9 octets et sont classés 
par ordre alphabétique des noms (ou plutôt des triades, trois premières 
lettres du nom). La liste 2, qui suit immédiatement la liste 1 en 
mémoire, est constituée de blocs disparates, de longueurs variables, 
sans classement aucun. 

L'ensemble de cette structure, avec un annuaire s'étendant jusqu’à 
TAMPON, permet de stocker environ de deux à trois cents références. 

La liste 1 est précédée de trois nombres sur 2 octets, de 2000H à 
2005H : d’abord l'adresse du début de la liste 2, puis celle de fin de 
cette liste (et donc de l'annuaire), enfin le nombre N de références 
de l’annuaire. 

Précisons un détail sur les pointeurs de la liste 1 : les trois premiers 
octets, étant les codes ASCII du début du nom, ont leur bit 7 à zéro. 
Les deux premiers de ces bits 7 sont donc en fait utilisés comme ceci : 
si le bit 7 du premier octet est non nul, c'est que cette triade se ren- 
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contre à plusieurs reprises dans la liste 1 (on est en présence d'une 
série) ; si le bit 7 du deuxième octet est non nul aussi, c’est que l’on 
a la dernière triade de la série. 

Prenons un exemple pour éclaircir tout cela. Vous avez enregistré 
le nom suivant : dupont/ anatole/ 16 33 44 55 66/ 2 rue des fosses/ 
PARIS/ N'appeler qu’apres 19H. Le programme a affiché ceci : 


DUPONT 

Anatole 

16 33 44 55 66 

2 rue des fosses 

PARIS 

N'appeler qu'apres 19H. 


Au moment de l’enregistrement, il y avait déjà un DUPUIS dans 
l'annuaire, donc une triade DUP. Vous trouverez comme pointeur 
les codes hexadécimaux suivants : 


C4 : code ASCII de D, plus bit 7 mis (déjà une triade). 
55 50 : codes ASCII de U et P. 

21 2C 37 42 : valeurs hexadécimales de 33, 44, 55, 66. 
56 21 : adresse du bloc (2156H). 


En 2156H, vous trouverez d’abord 6 (longueur du nom), puis les 
six lettres de DUPONT, puis 7 (longueur du prénom), etc. 

Si vous consultez l'annuaire en donnant DUP comme nom, le pro- 
gramme vous signalera la présence de deux noms, DUPUIS et 
DUPONT. Si vous donnez DUPO où plus de lettres encore, le pro- 
gramme ne vous signalera qu’un seul nom, DUPONT. 


AUTRES POINTS DE FONCTIONNEMENT 


On notera encore quelques détails importants de fonctionnement. 
Le programme s'exécute en mode 1. Le seul registre à valeur cons- 
tante est |Y, qui pointe sur la table des paramètres (qui commence 
à FLAGS). 

Lors d’une entrée au clavier, quelle qu’elle soit (choix ou demande 
de chaîne), un BREAK conduit à un retour en arrière (éventuellement 
jusqu’au menu principal) et à l’arrêt des opérations en cours. 
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BH ROUTINES 


Voici quelques routines importantes de ce programme, sommai- 
rement expliquées : 


ENTREE est le point d'entrée du programme à l'initialisation : il se 
charge de régler les deux fenêtres (l’une comprend les 22 dernières 
lignes, l’autre les 23 dernières), de mettre les couleurs et l’en-tête, 
puis de lire le fichier Annfich (annuaire proprement dit) avec LIRFICH ; 
si ce fichier n’est pas trouvé, il propose de changer de disquette ou 
d’en créer un. Il passe ensuite à RETOUR. 

RETOUR est le point d'entrée à chaud : il affiche le menu principal. 


Cette routine affiche une série de choix (dont le nombre doit être 
précisé dans B) qui se trouvent à l’adresse placée sur la pile (c'est 
pourquoi elle est appelée par un CALL, qui est en fait un JP). A cette 
adresse doivent se trouver les chaînes à afficher pour les choix, sui- 
vies des adresses de saut correspondantes. La routine attend qu’un 
choix soit fait, puis saute à l'adresse correspondante. 


Cette routine, très souvent appelée, affiche une chaîne alphanu- 
mérique. L'adresse de la chaîne (dont le premier octet est la longueur) 
doit être placée dans HL. 

Si la chaîne contient un code n compris entre 1 et 31 (non alpha- 
numérique), la n“"”* chaîne de la table CODORDR est écrite à la 
place du code. Si la chaîne contient un zéro, il est remplacé par le 
code contenu dans (IY +0). 


SEEKNOM 


Cette routine recherche dans la liste 1 la triade (trois premières let- 
tres du nom) pointée par DE. En sortie, la retenue est mise si le nom 
a été trouvé, sinon elle est nulle. Dans les deux cas HL pointe sur 
le pointeur du nom ou, s’il n’a pas été trouvé, sur l’endroit où il serait 
dans l’ordre alphabétique. Si plusieurs noms ont été trouvés, leur nom- 
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bre moins un se trouve dans A (le flag z est donc mis s’il n’y en a 
qu'un). 

La recherche est une recherche dichotomique, dont le principe est 
expliqué chez R. Zaks (voir bibliographie). 


SALON 


Cette routine cherche un numéro pointé par DE en partant du début 
de la liste 1. Si le numéro est trouvé, la retenue est mise. Le cas de 
plusieurs numéros semblables, très improbable, n'est pas prévu. 


(RONAUIRE KSOLANUIME Ke)" 


Cette routine est celle de consultation. Les deux cas (consulter un 
nom où un numéro) sont semblables, mais le premier est plus com- 
plexe (possibilité de noms multiples). La routine demande le nom, 
le vérifie, puis appelle SEEKNOM. Les noms trouvés sont ensuite listés. 


Cette routine assez compliquée permet l'enregistrement du nom 
dans l'annuaire. Après les demandes de toutes les lignes et leur véri- 
fication éventuelle, le bloc et le pointeur sont construits à l'adresse 
TAMPON, l’un derrière l’autre. 

Ensuite SEEKNOM est appelée pour savoir où placer le pointeur. 
Celui-ci est inséré, le bloc est placé en fin de liste 2, les trois paramè- 
tres indiquant le début et la fin de cette liste et le nombre d'éléments 
sont modifiés, puis toutes les adresses des pointeurs sont augmen- 
tées de 9 (un pointeur de plus, donc liste 2 décalée). 


SUPPRIM BIREAUILE 


Cette routine est l'inverse de la précédente mais, ses entrées étant 
limitées, elle est plus simple. Le nom à supprimer est demandé puis, 
après l'avoir cherché et trouvé, une confirmation est demandée. En 
cas de réponse positive, le bloc, puis le pointeur sont supprimés. 

La principale difficulté résulte de ce que le bloc ayant une longueur 
quelconque et se trouvant n'importe où dans la liste 2 il faut réac- 
tualiser tous les pointeurs de la liste 1 qui pointent sur des blocs qui 
suivaient le bloc supprimé (en plus de la décrémentation de 9 qui 
résulte de la suppression du pointeur). 
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Cette routine ressemble un peu à un mixage de SUPPRIM et de 
ENREG. Il faut en effet d'abord demander le nom à modifier, le cher- 
cher et éditer ses lignes une à une. Ensuite, le bloc ayant été cons- 
truit et le nouveau pointeur calculé, il faut supprimer l’ancien poin- 
teur et l’ancien bloc avant de replacer les nouveaux. 





1 

2 

3 

4 ANNUAIRE TELEPHONIQUE 

5 

6 

7 T. LACHAND-ROBERT, 1986 

8 

9 

19 

11 

12 ORG  9990H 

13 LOAD 39G9H 

14 

15 

16 LISTES: EQU 2099H 

17 TAMPON: EQU  B8E9SH 

18 ZONE: EQU 8FOSH 

19 ROMS : EQU GB990H 
26 CHAIT: EQU ©GBBS6H 
21 CSCRUT: EQU GBBS9H 

22 PRINT: EQU GBB5AH 
23 WIND: EQU GBB66H 
24 CLS: EQU GBB6CH 
25 HPOS : EQU ©BB6FH 
26 LOCATE: EQU GBB75H 
27 TCRON: EQU GBB7BH 
28 SYSCRON: EQU GBB81H 
29 SYSCROF: EQU GBB84H 
36 PEN: EQU GBB99H 
31 PAPER: EQU OBB96H 

32 OPAQ: EQU  GBB9FH 

33 WINDOW: EQU GBBB4H 

34 SWSTREAM:EQU @BBB7H 

35 MOVE: EQU GBBCSH 

36 MOVER: EQU OGBBC3H 
37 GPEN: EQU GBBDEH 

38 GPAPER: EQU GBBE4H 

39 DRAM: EQU GBBF6H 

49 TAGWR: EQU GBBFCH 
41 SINIT: EQU GBBFFH 

42 INK: EQU GBC32H 

43 BORDER: EQU GBC38H 

44 SPDINK: EQU GBC3EH 
45 OPEN: EQU GBC77H 

46 CLOSE: EQU GBC7AH 
47 KINFICH: EQU GBC83H 

48 OPENOUT: EQU GBCB8CH 
49 CLOSOUT: EQU GBC8FH 

59 KOUTFICH:EQU GBC98H 
51 EDIT: EQU GBD5EH :464: BD3AH; 664: BD5BH 
52 

53 9009 C30792 JP ENTREE ; Saut au point d’entree 
54 

55 ; DONNEES ET CHAINES ALPHANUMERIQUES 
56 D 
57 
58 

59 9993 1A99 ENCRES: DW 1AH :3= blanc/noir clignotant 
69 9995 9494 DW 494H :2= magenta 
61 9997 1A1A DW 1A1AH :1= blanc 
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9299 


339B 
930F 
9913 
9915 
9919 
991D 
9921 
9925 
9929 
9S2A 
992E 
9232 
9934 
9938 
993C 
9949 
9943 
9947 
994B 
9S4E 
9952 
9956 
9958 
995C 
99269 
9961 
9965 
9969 
996A 
996E 
9971 
9975 
9979 
997C 
99389 
9384 
9985 
9987 
9S8B 
908F 
9991 
9994 
9998 


99934 
399E 
9SA2 
99A4 
99A8 
9SAC 
92BS 
93B4 
93B8 
9SBB 
99BF 
93C3 
93c4 
99C8 
9acc 
9SD9 
9SD4 
92D8 
93DB 
SGDF 
99E3 
9GE5 
9GE9 
9SED 
9@F1 
99F5 


GAGA 


G9434F4E 
53554C54 
4552 
GB454E52 
45474953 
54524552 
384D4F44 
49464945 
52 
99535559 
5952494D 
4552 
D346494E 
DA435245 
45522955 
4E2901 
14434841 
4E474552 
294445 
20444953 
51554554 
5445 
98434845 
52434845 
52 
28202045 
4E434F52 
45 
96524554 
4F5552 
DA534155 
56455229 
ac2791 
28092955 
AE204E4F 
4D 

GB2O 
29554E29 
4E554D45 
524F 
326F6D 
95756D65 
726F 


29416E6E 
75616972 
6529 
61627365 
6E742964 
65296C61 
29646973 
71756574 
74652E 
14457272 
6575722E 
29 
5265636F 
6D6D656E 
63657A3A 
@34E043A 
26597265 
6E943A 
11416472 
65737365 
2C29 
6C69676E 
6529313A 
1949529 
64652974 
656C6579 


GADAH :9= turquoise 


DES ORDRES 


DW 
; CHAINES 
CCONSULT : DB 
CENREG: DB 
CMODIF: DB 
CSUPPRIM:DB 
CFIN: DB 
CCREER: DB 
CCHGDSC: DB 
DB 
CCHERCHE : DB 
CENC: DB 
CRET: DB 
CSAUV: DB 
CUNNOM: DB 
CUNNUM: DB 
DB 
CNOM: DB 
CNUM: DB 
; MESSAGES 
MESS9 : DB 
DB 
DB 
MESS1: DB 
DB 
MESS2: DB 
MESS3: DB 
MESS4: DB 
DB 
MESS5 : DB 
DB 


9, "CONSULTER" 
11, “ENREGISTRER" 
8, "MODIFIER" 

9, "SUPPRIMER" 


3, "FIN" 
19, "CREER UN ‘,1 


29, CHANGER DE‘ 
 DISQUETTE”" 

8, "CHERCHER" 
8,9," ENCORE” 


6, "RETOUR" 
19, "SAUVER L’",1 


8,9," UN NOM‘ 


11,9 
‘ UN NUMERO‘ 


5, “umero” 


32, "Annuaire ‘ 
“absent de la” 
" disquette. " 
29, ‘Erreur. 
“Recommencez:" 


3,"N",4," 
6, “Pren”, 





17, "Adresse, 
“ligne 1:* 


16, "N",5, 32 
“de telephone: " 
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; "Nom: " 
; “Prenom: 


; "Numero 


96 99SF9 686F6E65 

96 9SGFD 3A 

97 9SFE 1254726F MESS6: DB 18, "Trouve un” 
97 9192 75766529 

97 9196 756E 

98 9198 29736575 DB “ seul n",@,"." 
98 919C 6C2G6E0S 

98 9119 2E 

99 9111 174E9429 MESS7: DB 23,"N",4," pas 
99 9115 72617329 

199 9119 64616E73 DB “dans l’annuaire.” 
199 911D 296C2761 

199 9121 6E6E7561 

199 9125 6972652E 

191 9129 @D54726F MESSB8: DB 13, "Trouve ‘* 
191 912D 75766529 

192 9131 322S6ES4 NBRNOM: DB "2h; 4;"S." 
192 9135 732E 

193 9137 G8 DB 8 

194 9138 414E4E55 MESS9: DB "ANNUAIRE 

194 913C 41495245 

194 9149 29 

195 9141 54454C45 DB ‘"’TELEPHONIQUE" 
195 9145 5G484F4E 

195 9149 49515545 

196 914D G92A2A2A MESS19: DB 9, "XX ",9," xxx" 
196 9151 29092924 

196 9155 2A2A 

197 9157 G94E4F4D MESS11: DB 9, "NOM À ‘",9," ?" 
197 915B 29412909 

197 915F 293F 

198 9161 1643686F MESS12: DB 22, Choisissez" 
198 9165 69736973 

198 9169 73657A 

199 916C 29756E65 DB " une lettre:" 
199 9179 256C6574 

109 9174 7472653A 

119 9178 98992028 MESS13: DB 8,9," (O/N)?7" 
119 917C 4F2F4E29 

119 9189 3F 

111 9181 1653757@ MESS14: DB 22, ' Suppression” 
111 9185 79726573 

111 9189 73696F6E 

112 918D 20656666 DB " effectuee." 
112 9191 65637475 

112 9195 65652E 

113 9198 26417079 MESS15: DB 38, ‘Appuyez sur ‘ 
113 919C 7579657A 

113 9140 29737572 

113 9144 29 

114 91A5 756E6529 DB “une touche ‘* 
114 91A9 746F7563 

114 91AD 686529 

115 91B9 7@6F7572 DB “pour continuer." 
115 91B4 2O636F6E 

115 91B8 74696E75 

115 91BC 65722E 

116 91BF 19496E74 MESS16: DB 25, "Introduisez 
116 91C3 726F6475 

116 91C7 6973657A 

116 91CB 29 

117 91CC 6C612964 DB “la disquette." 
117 91D9 69737175 

117 91D4 65747465 


117 91D8 2E 
118 

119 ; ADRESSE DES ORDRES CODES. 

129 

121 91D9 3791 CODORD: DW  MESS9-1 ; Chaine 1:"ANNUAIRE" 
122 91DB 5899 DW  CCHERCHE ; Chaine 2:"CHERCHER" 
123 91DD 1599 DW  CENREG ; Chaine 3:"ENREGISTRER" 
124 91DF 9199 DW  CNOM ; Chaine 4:"UN NOM" 

125 91E1 9499 DW  CNUM ; Chaine 5:'"UN NUMERO" 
126 91E3 @B99 DH CCONSULT ; Chaine 6: "CONSULTER" 
127 91E5 2199 DW  CMODIF ; Chaine 7:"MODIFIER" 
128 91E7 2A99 DW  CSUPPRIM ; Chaine 8:"SUPPRIMER" 
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129 
139 


139 
131 
132 
133 
134 
135 
136 
137 
138 
138 
139 
149 


142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
171 
172 
173 
174 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 


186 
187 
188 


199 
191 
192 
193 
194 
195 
196 
197 
198 
199 
299 
291 


91E9 
S1ED 
91F1 


9200 
9294 


9297 
92SA 
92GD 
9219 
9213 
9215 
9216 
9217 
9218 
9219 
921A 
921B 
921C 
921F 
9229 
9221 
9223 
9225 
9228 
9224 
922D 
9239 
9232 
9235 
9238 
923B 
923E 
9241 
9244 
9247 
39249 
924A 
924B 
924C 
924D 
9259 
9253 
9256 
9259 
925A 
925B 
925D 
9269 
9263 
9264 
9265 
9266 
9269 
926A 
926D 
926E 
9271 
9272 
9275 
9276 
9279 


414E4E46 NOMFICH: DB "ANNFICH.BIN'” 
4943482E 
42494E 
FLAGS: DS 4 
ACC: DS 4 
POS: DS 2 
ADORD : Ds 2 
; CARACTERES POUR LE NOM 
2629272C TABCARAC:DB "& ?,.-",@ 
2E2D99 
; POINT D’ENTREE A FROID. 
; FENETRES, COULEURS ET TITRE. 
CDFFBB ENTREE: CALL SINIT 
21SASA LD BC, GAGAH 
CD38BC CALL BORDER 
219399 LD HL, ENCRES 
3E54 LD A,4 
46 BCLENCR: LD B, (HL) 
23 INC HL 
4E LD C, (HL) 
23 INC HL 
3D DEC A 
F5 PUSH AF 
E5 PUSH HL 
CD32BC CALL INK 
E1 POP HL 
F1 POP AF 
2GF2 JR NZ, BCLENCR 
3E92 LD A,2 
CD36BB CALL PAPER 
3E92 LD A,2 
CDE4BB CALL GPAPER 
CD6CBB CALL CLS9 
3E91 LD A,1 
CDDEBB CALL GPEN 
212929 LD HL, 2020H 
CD3EBC CALL SPDINK 
114C99 LD DE, 76 
218891 LD HL, 392 
CDCOGBB CALL MOVE 
213891 LD HL.MESS9 
2615 LD B,21 
C5 BCLTITRE:PUSH EC 
7E LD A, (HL) 
23 INC HL 
E5 PUSH HL 
CDFCBB CALL TAGWR 
210200 LD HL,@ 
119800 LD DE, 8 
CDC3BB CALL MOVER 
E1 POP HL 
C1 POP BC 
1SEC DUJNZ BCLTITRE 
110009 LD DE, 9 
218E91 LD HL, 398 
E5 PUSH HL 
D5 PUSH DE 
ES PUSH HL 
CDCSBB CALL MOVE 
E1 POP HL 
117F22 LD DE, 639 
D5 PUSH DE 
CDF6BB CALL DRAW 
D1 POP DE 
217991 LD HL, 368 
E5 PUSH HL 
CDF6BB CALL DRAW 
E1 POP HL 


; Nom d’enregistrement 


;Divers flags pointes par IY 
; Deux accumulateurs entiers 
;Position curseur 

; Adresse de l’ordre courant 


; Caracteres autorises 


; Mode 1,etc. 


; Adresse des encres 
; Quatre encres 


; Valeur de l'encre 


;Positionner 


; Fond magenta pour le titre 
; Idem graphique 

;Titre en blanc 
;Clignotement assez lent 


;Positionner 


; Coin premiere lettre 
;Lettres a afficher 

; Vingt et une 

; Donner la lettre 

;Et l’ecrire 


; Se deplacer de 8 points 


;Et continuer 


; Coin superieur du cadre 


;Premier bord 


;Deuxieme bord 


292 
203 
204 
295 
206 
297 
298 
299 
219 
211 
212 
213 
214 
215 
216 
217 
218 
219 
229 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
249 
241 
242 
243 
244 
245 
246 
247 
248 
249 
259 
251 
252 
253 
254 
255 
256 
257 
258 
259 
269 
261 
262 
263 
264 
265 
266 
267 
268 
269 
27 
271 
272 
273 
274 
275 
276 
277 


927A 
927B 
927C 
927F 
9289 
9281 
9284 
9286 
9288 
9289 
928C 
928D 
9299 
9291 
9292 
9294 
9295 
9298 
9299 
929A 
929C 
929E 
92A1 


92A4 
92A8 
92AB 
92AE 
92B1 
92B3 
92B6 
92B8 
92BA 
92BC 
92BE 
92C9 
92C2 
92C4 
92C6 
92C8 


92CA 
92CB 
92CE 
92CF 
92D0 
92D1 
92D4 
92D7 
92D8 
92D9 
92DA 
82DC 
92DF 
92E9 
92E1 
92E2 
92E5 
92E8 
92EB 
92EE 
92F9 
92F2 
92F4 
92F6 
92F7 
92FA 
92FB 
92FD 


D1 

D5 
CDF6BB 
D1 

E1 
CDF6BB 
3E02 
2699 
6F 
111928 
F5 
CD66BB 
F1 

47 
DECO 
F5 
CDB7BB 
F1 

3C 
FEO4 
29E8 
CDEB9A 
CD7499 


BCLFEN: 


DE 

DE 

DRAW 

DE 

HL 

DRAW 

A,2 

H,9 

L,A 

DE, @2819H 
AF 

WINDS 

AF 

B,A 

c,2 

AF 
SWSTREAM 
AF 

A 

4 

NZ, BCLFEN 
FEN1 
LIRFICH 


FD21F491 RETOUR: 
CDEBSA 
214492 
221A93 
2605 
CDCA92 
3B99 
9394 
1599 
5995 
2199 
4A97 
2499 
@F98 
3499 
3295 


1Y, FLAGS 
FEN1 

HL, RETOUR 
(BREAKAD) , HL 
B,5 

CHOIX 
CCONSULT 
CONSULT 
CENREG 
ENREG 
CMODIF 
MODIFIER 
CSUPPRIM 
SUPPRIME 
CFIN 

FIN 


; AFFICHAGE DES CHOIX 


48 CHOIX: 
CD6B9A 
E1 

54 

5D 
CD5C9B 
CDDASA 
23 

23 

23 
19F8 
CD6B3A 
41 

62 

6B 
CD569B 
CD339B 
CD5C9B 
CD96BB 
FEFC 
2824 
FEQD 
289F 
2B 
CDGA9A 
25 
28DF 
23 


BCLCHX1 : 


BCLCHX2 : 


BCLCHX3: 


LD 


C,B 
LOC+19 
HL 

D,H 

E,L 
ECR9 
SUIVANT 
HL 

HL 

HL 
BCLCHX1 
LOC+19 
B,C 

H,D 

L,E 
ECR1 
PRCH1 
ECRS 
CWAIT 
GFCH 

Z, BREAK 
13 

Z, SUITCHX 
HL 
SUIVANT 
B 

Z, BCLCHX2 
HL 
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; Troisieme bord 


;Quatrieme et dernier 


;Ligne 2 ou 3 
;Coin inf. droit de l’ecran 


; Fenetre 2 ou 3 


;sPositionner 


;Definir aussi fen. 3 


;Lire l'annuaire 


; Valeur constante de IY 
;Effacer plus grande fenetre 


; Adresse en cas de Break 

:5 choix dans la table 

; Saut a la routine de choix 

; Chaine alphanumerique,... 
;...et adresse correspondante 


; Stocker nombre de choix 
; Placer curseur 
;:Recuperer adresse de la table 


;La stocker dans DE 
;Écrire en blanc 
;Ecrire une chaine et passer. 


; Adresse chaine suivante 
;Ecrire toutes les chaines 
;Replacer le curseur 

; Recuperer nombre de chaines 


;Et adresse de la table 
;:Ecrire en clignotant 

;La chaine pointee par HL 

; Ecrire normalement 

; Attendre une touche 

; Break? 

;Oui, sauter a.BREAKAD 

; RETURN ? 

;Oui, choix fait, continuer 
;Non, choix non fait... 
;Reecrire en blanc et passer 
;Fin de la liste ? 

; Oui, repasser au debut 


278 
279 
289 
281 
282 
283 
284 


286 
287 
288 
289 
299 
291 
292 
293 
294 
295 
296 
297 
298 
299 
329 
391 
392 
393 
394 
395 
396 
397 
348 
399 
319 
311 
312 
313 
314 
315 
316 
317 


319 
329 
321 
322 
323 
324 
325 
326 
327 
328 
329 
339 
331 
332 
333 
334 
335 
336 
337 
338 
339 
349 
341 
342 
343 
344 
345 
346 
347 
348 
349 
359 
351 
352 
353 


92FE 
92FF 
9300 
9393 
9395 
9366 
9397 
9398 
9399 
939A 
939B 
939C 
930E 
9311 
9312 
9315 
9316 
9319 


931C 
9329 
9324 
9328 
932B 
932C 
932D 
932F 
9339 
9331 
9332 
9336 
9339 
933B 
933D 
933E 
9341 
9343 
9344 
9345 
9346 
9344 
934B 
934C 
934E 
934F 
9359 
9352 
9353 
9354 
9357 
935B 
935E 
935F 
9369 
9362 
9363 
9366 
9369 
936B 
936F 
9371 


9372 
9373 
9376 
9379 
937A 
937B 
937E 
937F 
9382 


9383 


FD369993 
FD36S3FF 
ED53F891 
249429 
7C 

B5 

2859 

54 

5D 

23 
FD362290 
CDC293 
CB3A 
CB1B 

E5 
219000 
ED5A 

EB 

E1 

D5 
ED5B9429 


CD7293 


CDDCS9A 


FDCBS206 
3091 


CD7293 


SUITCHX: 


VERSOP : 
BREAK: 


BREAKAD: DS 


EL 

HL 
HORPOS8 
BCLCHX3 
HL 

E, (HL) 

HL 

D, (HL) 

A,D 

E 

DE, HL 

Z, VERSOP 
(ADORD),HL 
(HL) 

EL, (ADORD) 
(EL) 

CLSg 

2C3H 

2 


; RECHERCHE D'UN NOM 


SEEKNOM: 


BCLESEEK : 


DONADR : 


DERNIER: 


PREMIER: 


TROUVE: 


(IY+G),3 
(IY+3),255 
(ACC), DE 
HL, (LISTES+4) 
A,H 

L 

Z, FREMIER 
D,H 

E.L 

HL, HL 
(IY+2),9 
ADDSUB 

D 

E 


HL,S 
HL, DE 
DE, HL 


DE, (LISTES+4) 
HL 


NC, DERNIER 
HL 

DE 

DONADR 

DE, (ACC) 
COMPARE 

DE 

HL 

Z, TROUVE 
A, A 
(IY+2),A 
TESTFG2 
NZ, BCLESEEK 
(1Y+2) 

NC, DONADR 
HL 


HL 

FOIS9 

DE, LISTES+6 
HL, DE 

BL, (LISTES) 


HL, LISTES+6 


DONADR 
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; Adresse chaine suivante 
; Positionnement horizontal 


;Ët boucler 
; Choix fait 


; Adresse de l'instruction 


;Nulle ? 
; Oui, saut a 
;Non, sauver 


;Et sauter 


ADORD 


; Adresse de l’op. precedente 


; Code de l’instruction JP 
; Adresse en cas de Break. 


;3 caracteres a comparer 
; Flag 3 initialise 


; Stocker adr. 


nom a chercher 


; Nombre de ref 


;Zero *? 
3; Oui, 


:Nombre dans 
;lnitialiser 
;Et flag 2 a 
;Additionner 


annuaire vide, 


termine 


DE 

HL 

zero 

ou soustraire 


;Diviser DE par deux 


;Et ajouter le reste 


; Valeur maximale 


; Depassement 


; Oui, 


trop loin, 


de HL ? 


termine 


;Donner adresse du pointeur 


;Et celle du 


nom cherche 


;Faire la comparaison 


;Egal, alors 


trouve 


; Selon inegalite... 
;...flag 2= © ou FFH 
; Tester si DE=1 deux fois 


;Non, 


continuer la recherche 


; Recherche non aboutie 
; Prendre valeur par exces 


; Donner adresse correspondante 
;Multiplier par 9 


;Ajouter LISTES+6 
; Retenue nulle en sortie 


; Adresse fin 


liste 1 


; Adresse debut liste 1 


; Aller chercher adr. 


pointeur 


354 9386 919990 LD BC, 93 


355 9389 CB7E BIT 7,(HL) ; Appartient a une serie ? 
356 938B 289E JR Z,FINTRV ;Non, OK 

357 938D B7 BCLTRV1: OR A ;Oui, chercher debut de serie 
358 938E ED42 SBC HL,BC ;-9: pointeur precedent 
359 9399 7C LD A,H 

369 9391 FE29 CP 2H ;Depassement par le bas? 
361 9393 3895 JR C,FINTRV-1 ;Oui, termine 

362 9395 CDBA99 CALL ELSERIE ;Prec. appartient a la serie ? 
363 9398 38F3 JR C, BCLTRVI ;Non, continuer 

364 9394 99 ADD HL, BC ;Repasser au premier de serie 
365 939B E5 FINTRV: PUSH HL 5 

366 939C 119799 LD DE, 7 

367 939F 19 ADD HL,DE 

368 93A9 5E LD E, (HL) 

369 93A1 23 INC HL 

370 9342 56 LD D,(HL) ; Adresse de bloc dans DE 
371 9343 Ei POP HL 

372 93A4 AF XOR A 

273 93A5 CB7E BIT 7,(HL) ;Appartient a une serie ? 
374 93A7 37 SCF ;retenue= trouve 

375 93AB C8 RET 2Z ;Non, A=G, termine 

376 93A9 E5 PUSH HL 

277 93AA 23 INC HL 

378 93AB G9 BCLTROUV:ADD HL, BC ; Compter la serie 

379 93AC 3C INC A 

389 93AD CB7E BIT 7,(HL) ;Dernier de la serie ? 
381 93AF 28FA JR Z, BCLTROUV ;Non, continuer 

382 93B1 El POP HL ;Restituer premier 

383 93B2 37 SCF ; Trouve. 

384 93B3 C9 RET ;Fin. 

385 93B4 1B TESTFG2: DEC DE 

386 93B5 7A LD A,D 

387 93B6 B3 OR E ;:DE= 1? 

388 93B7 13 INC DE 

389 93B8 C9 RET NZ ;Non, ok. 

399 93B9 FDBEU3 CP (1Y+3) ;DE deja egal a 1 avant ? 
391 93BC C8 RET 2Z ;Oui, retour 

392 93BD FD7793 LD (1Y+3),A ;Non, mettre flag 3 a zero 
393 93C9 3C INC A ; Flag z non mis 

394 93C1 C9 RET 

395 93C2 FDCB92@6 ADDSUB: RLC (IY+2) ; Flag 2 a @ ou FFH 

396 93C6 3992 JR NC, ADDSUB2 ;:9, soustraire 

397 93C8 19 ADD HL,DE ;Monter dans la liste 
398 93C9 C9 RET 

399 93CA 7D ADDSUB2: LD A,L ;Retenir parite de HL 
499 93CB ED52 SBC HL,DE ; Descendre dans la liste 
491 93CD 1F RRA ;HL pair avant ? 

492 93CE DO RET NC ;Oui, ok. 

493 93CF 7B LD A,E 

494 93DS 3D DEC A 

495 93D1 B2 OR D ;DE= 1? 

496 93D2 C8 RET 2Z ;Oui, termine. 

497 93D3 23 INC HL ; Sinon, augmenter HL 

498 93D4 C9 RET 

499 

419 ; RECHERCHE D'UN NUMERO 

411 

412 93D5 219929 SEEKNUM: LD HL, LISTES +9 ; Premier numero 

413 93D8 FD369904 LD (IY+G),4 ;4 chiffres a comparer 
414 93DC ED4BS429 LD BC, (LISTES+4) ;Nombre de ref. 

415 93E9 78 LD A,B 

416 93E1 Bi OR C ; Nul ? 

417 93E2 C8 RET 2Z ; Oui, termine 

418 93E3 C5 BCLSKNUM: PUSH BC 

419 93E4 D5 PUSH DE 

42Q 93E5 E5 PUSH HL 

421 93E6 CDDCSA CALL COMPARE ; Comparer avec num. ds (DE) 
422 93E9 El POP HL 

423 93EA D1 POP DE 

424 93EB 28GB JR Z, TROUVNUM ; Trouve, ok. 

425 93ED G19999 LD BC,9 

426 93FQ G9 ADD HL,BC ;Non, pointeur suivant 
427 93F1 C1 POP BC 

428 93F2 GB DEC BC 

429 93F3 78 LD A,B 


439 
431 
432 


434 
435 
436 
437 
438 
439 
449 
441 
442 
443 
444 
445 
446 
447 
448 
449 
459 
451 
452 
453 
454 
455 
456 
457 
458 
459 
469 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
489 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
599 
591 
592 
593 
594 
595 


93F4 
93F5 
93F7 


93F8 
93F9 
93FC 
93FD 
93FE 
93FF 
9499 
9491 
9492 


9493 
9497 
9499 
949C 
94QGE 
9411 
9414 
9416 
9418 
9414 


941C 
941F 
9422 
9425 
9428 
942B 


942C 
942E 
9431 
9434 
9437 
943A 
943D 
943E 
9441 
9444 
9447 
944A 
944B 
944E 
9451 
9454 
9458 


945B 
945D 
9469 
9463 
9466 
9469 
946C 
946F 
9479 
9471 
9473 
9474 
9475 
9478 
947C 
347D 
9489 
9483 
9484 


B1 
2@EC 
cg 


C1 
219409 
29 
7E 
23 
66 
6F 
37 
cg 


TROUVNUM: 


LD 
SCF 
RET 


C 
NZ, BCLSKNUM 


BC 
BC, 4 
HL, BC 
A, (HL) 
HL 

H, (HL) 
L,A 


; CONSULTER L'’ANNUAIRE 


; 


FD369196 CONSULT: 


269C 
CDF89A 
2692 
FD7001 
CDCA92 
7C99 
5B94 
8599 
2C94 


FD77@1 
321391 
CD5A9A 
CD6CBB 
11SA8E 
cg 


3E05 
CD1C94 
CDDA96 
11938E 
CDD593 
D2EF94 
E5 
CD769A 
21FE99S 
CD3E9B 
CD799A 
E1 
CDED99 
CDC999 
CD6CBB 
FD369192 
C39695 


UNSEUL : 


3E04 
CD1C94 
CD8996 
11908E 
CD1C93 
D2EF94 
919709 
99 

47 
DE00 
24 

E5 
21SA8E 
DD219G8F 
C5 
DD7291 
DD73G0 
7E 

ES 


DEBCONS : 


CONSNUM: 


CONSNOM: 


BCLCONS : 


(1Y+1),6 
H,12 
FEN2 

B,2 
(1Y+1),B 
CHOIX 
CUNNOM 
CONSNOM 
CUNNUM 
CONSNUM 


(1Y+1),A 
(MESS7+2),A 
POSHAUT 

CLS9 

DE, TAMPON+19 


A,5 
DEBCONS 
ENRNUM 

DE, TAMPON +3 
SEEKNUM 
NC, NONTRVG 
HL 
RELOCATE 
HL, MESS6 
PRCHAIN 
LOC+15 

HL 

PRNOM 

WAIT 

CLS 
(1Y+1),2 
VERSCHX2 


A, 4 
DEBCONS 
ENRNOM 

DE, TAMPON 
SEEKNOM 
NC, NONTRVS 
BC, 7 

HL, BC 

B,A 

C,g 

B 

HL 

HL, TAMPON+19 
IX, ZONE 

BC 
(IX+1),D 
(IX+G),E 
A, (HL) 

HL 
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; Arrive au dernier ? 


;Non, 


;Oui, pas trouve, 


;Fin du pointeur 


comparer encore 


termine 


; Adresse du bloc dans HL 


; retenue= trouve 
; Chaine 6= ‘“CONSULTER" 
; Centrage 


;Ecrire titre et nouvelle fen. 


; Deux choix 
; Chaine 2= 
; Vers le choix 
; Table 


; Partie commune 


;Stocker code pour messages 


;Placer en haut 
; Effacement 


"CHERCHER" 


; Emplacement de recherche 


; Chaine 5= 
; Partie commune 


; Enregistrer numero demande 


(N)umero 


; Emplacement des codes 


; Rechercher 
:Pas trouve, 


;:Se replacer 


; Ecrire message 


;Ecrire la reference trouvee 


; Attendre 
; Code de 
; Choix2: 


; Chaine 4: (N)om 
; Partie commune 


ecrire message 


"CHERCHER" 
Encore/Retour 


; Demander nom cherche 
; Emplacement des codes 
; Recherche dichotomique 


;Pas trouve, 


; Partie adresse des pointeurs 


;initialiser C 


; Nombres de pointeurs ds serie 


; Emplacement du nom cherche 


;Zone de stock 


;Verifier concordance reelle 


ecrire message 


; Sauver adresse de stock 
; Longueur nom cherche 


596 
597 
558 
539 
519 
511 
512 
513 
514 
515 
516 
517 
518 
519 
529 
521 
522 
523 
524 
525 
526 
527 
528 
529 
539 
531 
532 
533 
534 
535 
536 
537 
538 
539 
549 
541 
542 
543 
544 
545 
546 
547 
548 
549 
559 
551 
552 
553 
554 
555 
556 
557 
558 
559 
569 
561 
562 
563 
564 
565 
566 
567 
568 
569 
579 
571 
572 
573 
574 
575 
576 
577 
578 
579 
589 
581 


9485 
9486 
9487 
948A 
948B 
948c 
948F 
9499 
9493 
9494 
9495 
9496 
9497 
9498 
949A 
949B 
949C 
949D 
949F 
9443 
94A6 
94A7 
94A9 
94AD 
S4AE 
94B9 
94B1 
94B4 
94B7 
94BA 
94BD 
g4c1 
94C4 
9g4cs5 
94C6 
94c9 
g4cc 
94CF 
94D2 
94D5 
94D6 
94D7 
94DA 
94DB 
94DC 
94DE 
94E0 


S4E2 
94ES5 
94E8 
94E9 
94EA 
94EC 
94EE 


94EF 
94F2 
94F6 
94F8 
94FA 
94FD 
9520 
9593 
9596 
9598 


953B 
95GE 
9511 
9514 
9516 
9519 
951C 


CD3E9B 
FD369192 
CD7G94 


FD7E01 
FD369192 
1892 
3E04 
321391 
CD7694A 
211191 
CD3E9E 
262 
C3F595 


CD1195 
C3A492 
21E991 
G6SB 

11SOB8E 
CD8CBC 
39F3 


BCLCONS2 : 


GETADR: 


TROUVEUN : 


NONTRVG : 


NONTROUV : 


VERSCHX2 : 


BL 

DE 
COMPARE+3 
HL 

BC 

Z, TROUVEUN 
(SP),HL 
DE, 19 

HL, DE 

D, (HL) 

HL 

E, (HL) 
(SP),HL 
BCLCONS 
AF 

A,C 

OR A 

Z, NONTRVS 
IX, ZONE 
GETADR 


À 

Z, UNSEUL 
IX, ZONE 
B,C 
LD C," 
A, C 
(NBRNOM), A 
RELOCATE 
BL, MESS8 
PRCHAIN 
(IY+1),2 
LOC+15 

A,C 

C 


1" 


PRINT 
ALALIGN2 
GETADR 
PRNOM 
WAIT 


Z, VERSCHX2 
BCLCONS2 
VERSCHX2 
LD H,(IX+1) 
L, (IX+9) 
DEC C 

INC C 

IX 

1X 


A, (IY+1) 
(IY+1),2 
NONTROUV +2 
A, 4 
(MESS7+2),A 
RELOCATE 
HL,MESS7 
PRCHAIN 

B,2 
CHOIX3+2 


;Pas comparer longueurs ! 
; Comparer 


;Egal, incrementer C et IX 
Recuperer pointeur 


;Pointeur suivant 


; Prendre adresse de bloc 
;Recuperer TAMPON+19 

; Poursuivre 

;Detruire dernier pointeur 
;Nombre de noms trouves 
;Nul ? 

;Oui, ecrire non trouve. 
;Place pour adr. des blocs 
;Aller chercher premier 
;Un seul ? 

;Oui, ecrire un seul 


;Nombre de ref. trouvees 
;Stocker dans message 
;Replacer curseur 


;Ecrire combien trouve 


; Code de "CHERCHER" 
;Placer curseur 
; Numero 


;Ecrire numero 

; Descendre de deux lignes 
;Aller chercher adr. du bloc 
;Ecrire la reference 

; Attendre 


; Effacer l’ecran 


;Si Break ds WAIT, termine 
; Continuer 
; Vers choix 2: Encore/Retour 


;Aller chercher adr. du bloc 


; Incrementer compteur 
; Passer au suivant 


; Code de 
:2= code 


Nom ou Numero 
de "CHERCHER" 


;,4= code de (N)om 
;Stocker dans message 
;Replacer curseur 


; Ecrire message 
;Deux choix 


; SAUVER L’ ANNUAIRE SUR DISQUETTE 


; Sauver l’annuaire 
;Et revenir 

; Nom du fichier 
;11 caracteres 


SAUVER: CALL SAUVER2 
JP RETOUR 
SAUVERZ2: LD HL, NOMFICH 
LD B,11 
LD DE, TAMPON 
CALL OPENOUT 
JR NC, SAUVER2 
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; Tampon pour sauver 
;Ouvrir le fichier 
;Marche pas, reessayer 


582 


951E 
9521 
9524 
9525 
9527 
9528 
952A 
952B 
952C 
952F 


9532 
9535 
9538 
953B 
953E 
9541 
9544 
9547 
9548 
954B 
954E 
9559 
9553 
9556 


9559 
955D 
955F 
9562 
9565 
9568 
956B 
956E 
9572 
9573 
9574 
9575 
9576 
9577 
957A 
957D 
9589 
9584 
9587 
358A 
958BR 
958C 
958E 
9591 
9594 
9595 
9598 
959B 
959C 
95AQ 
95A1 
95A2 
95A3 
95A5 
95A6 
95A7 
95A8 
95A9 
95AC 
95AD 


119929 
2A9229 
B7 
ED52 


C38FBC 


DE, LISTES 

HL, (LISTES+2) 
A 

HL, DE 

DE, HL 

A,2 

B,H 

C,L 

KOUTF ICH 
CLOSOUT 


; SORTIE DU PROGRAMME 


CD6CBB 
CD6194A 
21BF91 
CD3E9B 
CDC999 
CAA492 
CD1195 
AF 
CDB4BB 
CD6CBB 
3E01 
CD9GBB 
CDGGB9 
C358C9 


CALL 
CALL 
LD 
CALL 
CALL 
JP 
CALL 
XOR 
CALL 
CALL 
LD 
CALL 
CALL 
JP 


CLS9 

LOC 

HL, MESS16 
PRCHAIN 
WAIT 

Z, RETOUR 
SAUVER2 
A 

WINDOW 
CLS9 

A, 1 

PEN 

ROMS 
QCO58H 


; Adresse debut 
; Adresse fin 


; Longueur 
;Fichier binaire 
;Point d’entree= debut 


; Sauver le tout 
; Et fermer le fichier 


; Placer curseur 


; Demander la disquette 
;...et attendre 
;Break? Alors revenir 
; Sauver le fichier 


; Fenetre plein ecran 
; Stylos normaux 


; Connecter BASIC 
(464: CG64H) Au mode Ready 


; ENREGISTRER UN NOM DANS L'ANNUAIRE 


; 


FD369193 ENREG: 
26SA 

CDF89A 

21F395 

221A93 

CD5A9A 

21078E 
ED5B9229 


DD219D9A 
CD1696 
21G98E 


FINMODIF: 


LD 
CALL 


PUSH 


(1Y+1),3 
H, 19 

FEN2 

HL, CHOIX3 
(BREAKAD), HL 
POSHAUT 

HL, TAMPON +7 
DE, (LISTES+2) 
(HL),E 

HL 

(HL),D 

HL 

DE,HL 

ENRNOM 
ENRPRE 
ENRNUM 

IX, INPUTVID 
ENRADR 

HL, TAMPON +9 
A 

DE.HL 

HL, DE 
(ACC+2),HL 
DE, TAMPON 

DE 

SEEKNOM 

C, DEJAUN 

HL 

DE, (LISTES+2) 
DE 

DE, HL 

À 

HL, DE 

HL 

DE 

B,H 

C,L 

HL, 9 

HL, DE 

HL 
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; Chaine 3= “ENREGISTRER" 
;Centrage du sous-titre 
;Fenetre inferieure 

; Adresse de retour... 

;...en cas de Break 

;Regler emplacement du curseur 
; Emplacement adresse de bloc 
;Fin du fichier 

;Sera l’adr. du nouveau bloc 


;...donc la stocker 

; Tampon +9... 

;...dans DE 

;Enregistrer le nom 

;Puis le prenom 

;Puis le numero 

; Demander des lignes vides 
;...en enregistrant l'adresse 
; Adresse de debut du bloc 

; (dans DE, adresse de fin) 


;Difference= longueur du bloc 
; Conserver 

; Debut du pointeur 

; Chercher le nom 

;Deja un? Placer les flags 


; Adresse pointeur suivant 
;Fin des listes 


; Calculer longueur a decaler 
;Fin des listes 
;Longueur dans BC 


;Fin listes +9 


704 
795 


797 
708 
799 
719 
711 
712 
713 
714 
715 
716 
717 
718 
719 
729 
721 
722 
723 
724 
725 
726 
727 
728 
729 
73@ 
731 
732 
733 


95AE 
95AF 
95B9 
95B1 
95B3 
95B5 
95B6 
95B9 
95BD 
95BF 
95C3 
95C6 
95C9 
95CA 
95CD 
95CE 
95CF 
95D1 
95D4 
95D5 
95D8 
95D9 
895DC 
95DF 
95EQ 
95E1 
95E2 
95E3 
95E4 
95E5 
95E6 
95E7 
95E8 
95E9 
95EA 
95EB 
95EC 
95ED 
95EE 
95FQ 


95F3 
95F5 
95F8 
95FA 
95FC 
95FE 
9690 
9692 


9694 
9697 
9609 
369C 
96GE 
960F 
9611 
9612 
9614 
9615 


9616 
9619 
961C 
961D 
961F 
9622 
9625 
9626 
9628 
9629 


21G98E 
ED4BFA91 
EDBS 
ED539229 
219920 
2A9929 
29 
229020 
D1 

E1 

EDB9 
2A9429 
23 
229429 
EB 
219D29 
219990 
D5 


3AQ9BE 
CBFF 
32008E 
CB7E 
co 
CBFE 
23 
CBFE 
2B 

cg 


21DB99 
CD4296 
F5 
2628 
CD879A 
21EB99 
F1 
2817 
ES 
3628 


SUITENRG: 


BCLENRG : 


CHOIX3: 


DEJAUN : 


DE,HL 
A,B 
c ;Rien a decaler? 
Z, SUITENRG ; Alors pas de LDDR 
;Decaler: place pour pointeur 
DE ;Nouvelle fin listes 
HL, TAMPON +9 ;Debut du nouveau bloc 
BC, (ACC+2) ;Longueur du nouveau bloc 


; Copier le nouveau bloc 
(LISTES+2),DE ;Nouvelle fin listes 
BC,9 ;Longueur des pointeurs 
HL, (LISTES) ;Debut liste 2 
HL, BC ; Ajouter 9 car decalee 
(LISTES),HL 
DE ; Emplacement du pointeur 
HL ; TAMPON 


; Copier pointeur dans liste 1 
HL, (LISTES+4) ;Nombre d’elements 
HL ; Un de plus 
(LISTES+4),HL 
DE, HL ;Et dans DE 
BL, LISTES+13 ;Premiere adr., ler pointeur 
BC,9 ; Constante 
DE ; Ajouter 9 a toutes les adr. 
E, (HL) 
HL 
D, (HL) ; Prendre adresse de bloc 
DE, HL 
HL, BC ;Ajouter 9, cause decalage 
DE, HL 
(HL),D 
HL 
(HL),E ;Et resauver 
DE ;Restituer le compteur 
HL, BC ;Pointeur suivant 
DE 
A,D 
E ; Compteur a zero ? 
NZ, BCLENRG ;Non, continuer 
CLS9 ; Enregistrement termine 
B,3 ; Trois choix 
CHOIX 
CENC ; "Encore 
] ;:© a remplacer par (ADORD) 
CRET ; "Retour" 
RETOUR 
CSAUV : Sauver l'annuaire” 
SAUVER 
À, ( TAMPON) ;Pointeur element d’une serie 
7,A ;:Mettre bit 7 premier carac 
(TAMPON), A ;...du pointeur 
7, (HL) ; Autre pointeur deja ds serie? 
NZ ; Oui, ca va 
7, (HL) :Non sera dernier de la serie 
HL 
7, (RL) ,2 fois bit 7 mis= dernier 
HL ;Restituer HL 


ENRADR: 


HL, MESS4 ; "Adresse, ligne 1:°" 

VERSIX ; Call (IX):entree de la ligne 
AF ; Longueur de la ligne 

B, 49 ;Pas plus de 49 

COPIE ; Copier la ligne 

HL, MESS5-2 ; Emplacement numero de ligne 
AF ;Restituer longueur de ligne 
Z,FINADR ;Ligne vide? Terminer 

HL 

B, 49 


2,438 


734 
735 
736 
737 
738 
739 
749 
741 


743 
744 
745 
746 
747 
748 
749 
759 
751 
752 
753 
754 
755 
756 
757 
758 
759 
769 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
799 
791 
792 
793 
794 
795 
796 
797 
798 
799 
820 
891 
822 
893 
854 
895 
896 
897 
898 
899 


CD839A 
21FF8E 
79 
CD769A 
CD3E9B 
E1 

34 
3E36 
BE 
29D7 
3631 
C3 
DDE9 


21D499 
CDSDS9A 
282F 
3619 


FINADR: 
VERSIX: 


ENRPRE: 


VRFPRE: 


PRENOM? : 


ERRPRE : 


BCLPRE: 


SUITPRE: 


NOPRE : 


VERTIRET: 


ENRNOM: 
VRFNOM: 


BCLNOM: 


CALL 
LD 
LD 
CALL 
CALL 
POP 
INC 
LD 
CP 


DJNZ 


PUSH 


MINAB 

HL, ZONE-1 
(HL),B 
RELOCATE 
PRCHAIN 
HL 

(HL) 

A, "6" 
(CHL) 

NZ, ENRADR 
CHL), "1" 


(IX) 


HL, MESS3 
INPUTVID 
Z,NOPRE 
B, 16 

HL 

AF 

MINAB 

BL 
(HL), A 
HL 

MAJUS 
(HL), A 
C, SUITPRE 
INPUTERR 
VRFPRE 
BL 

A, (BL) 
MINUS 
(HL),A 
NC, VERTIRET 
BCLPRE 
AF 

BL 

BL 

B,16 
COPIEZ 
L 
RELOCATE 
HL 
PRCHAIN 
A 

(DE), A 
DE 


NZ, ERRPRE 
B 
Z, ERRPRE 


PRENOM2 


HL, MESS2 
INPUTVID 

A 

Z, ERRNOM+2 
HL 

AF 

B, 32 

MINAB 

A,B 

HL 

(HL),A 

HL 

MAJUS 
(HL),A 

NC, AUTCARAC 
BCLNOM 

AF 

HL 

HL 
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; MIN (longueur, 49) dans B 

; Debut ligne entree -1 
;Stocker longueur tronconnee 
;Replacer curseur 

; Ecrire ligne entree 

: Numero de ligne 

; Incrementer 

;Depasse 57 


;Non, enreg. ligne suivante 
; Remettre chiffre 1 dans mess. 


; Prenom: 
; Editer ligne vide en ZONE 
; Longueur nulle? Pas de prenom 


; Tronconner a 16 

; Debut ligne entree -1 
;Stocker longueur tronconnee 
; Premiere lettre 

; Transformer en majuscule 

; Resauver 

;Bien lettre? Alors continuer 
; Envoyer message d'erreur 

;Et recommencer 

;Lettre suivante 


; Transformer en minuscule 
;Resauver 

; Pas une lettre? Alors tiret? 
; Continuer jusqu'a la fin 


; Copier prenom dans le bloc 
;Replacer le curseur 
;Et ecrire le prenom, et fin 


;:Pas de prenom, alors 
;:Mettre un zero dans le bloc 


;Pas une lettre, alors tiret? 
;Non, alors erreur 

;Un caractere de moins 

;Tiret dernier, alors erreur 


; Traiter deuxieme prenom 
; “Nom: * 
;Enregistrer le nom 


; Longueur nulle ? 
:Oui, alors erreur 


; Tronconner a 32 


:Stocker longueur 
; Transformer en majuscule 


;Pas une lettre,alors verifier 
: Toutes les lettres 


819 
811 
812 
813 
814 
815 
816 
817 
818 
819 
829 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 


837 
838 
839 
849 
841 
842 
843 
844 
845 
846 
847 
848 
849 
859 
851 
852 
853 
854 
855 
856 
857 
858 
859 
869 
861 
862 
863 
864 
865 
866 
867 
868 
869 
879 
871 
872 
873 
874 
875 
876 
877 
878 
879 
889 
881 
882 
883 
884 
885 


96A9 
96AB 
S6AE 
96AF 
96B2 
96B3 
96B6 
96B7 
96BA 
96BD 
96CS 
96Cc2 
96C3 
96c4 
96C5 
96C8 
96C3 
96CA 
96CB 
96CD 
96CE 
96CF 
96D1 
96D2 
96D3 
96D4 
96D5 


96D8 


96DA 
96DD 
96E0 
96E2 
96E4 
96ES5 
96E6 
96E7 
96E8 
96E9 
96EA 
96ED 
96F9 
96F2 
96F4 
96F5 
96F6 
96F7 
96F8 
96F9 
96FA 
96FD 
96FE 
96FF 
9792 
97G4 
9705 
9707 
9798 
9799 
97@C 
97GE 
97GF 
9711 
9712 
9713 
9714 
9715 
9716 
9717 
9718 
9719 
971A 
971B 
971C 
971D 


CDAS9A 
18B5 


21ED90 
CD9D9A 
FE1S 
3061 


AUTCARAC: 


BCLCARAC : 


ERRNOM: 


ENRNUM: 


VRFNUM: 


BCLNUM: 


BCLNUM? : 


SUI TNUM2 : 


BCLNUM3 : 


B, 32 
COPIE2 


HL 
RELOCATE 
HL 
PRCHAIN 
DE 

HL, ZONE 
DE, TAMPON 
BC,3 


DE 


HL 

HL, TABCARAC 
C,A 

A, (HL) 


À 

Z, ERRNOM 

H 

C 

NZ, BCLCARAC 
BL 


BL 
HL 
INPUTERR 


VRFNOM 


HAL, MESS5 
INPUTVID 
16 

NC, ERRNUM 
HL 

8F 

BL 

(HL),A 
BL 


CHIFFRE 

NC, VERSPACE 
BCLNUM 

B,4 


DE 
DE, TAMPON +6 
C 


HL 

CHIFFRE 
NC, BCLNUM2 
DE 
“g" 
E, A 

HL 

CHIFFRE 

NC, SUI TNUM2 


S 


D>H»D»>>UE :Q 
H>»mHO>»>>>D> 


ol 


(DE), A 
DE 


AQZ 
(3 
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; Copier nom obtenu 
; Curseur 
;Ecrire le nom 


;Et copier... 
;...en debut de pointeur 
;...les 3 premieres lettres 


;Restituer adr.-bloc courante 


; Table des carac. autorises 
;Caractere a verifier 
;Caractere de la table 
;Atteint fin de la table (@)? 
;Oui, alors erreur 


;Meme carac.®? 
;Non, chercher encore 
;Oui, ok. 


;Vidanger la pile 


; Demander nouveau nom 
;Et recommencer 


; "Numero: " 

; Demander 

:Plus de 16 caracteres ? 
;Oui, erreur 


; Sauver longueur du numero 


;Bien un chiffre ? 
;Non, alors un espace ? 


;Faire 4 nombres pour pointeur 
; Commencer par la fin 


Recuperer longueur 
;Dans C 


;Fin emplacement de stock 
;Caractere suivant 


;Est un chiffre ? 
;Non, suivant 


; Transformer en nombre @ a 9 
;Dans E 

; Caractere suivant 

;Est un chiffre ? 

;Non, passer 

; Compteur de carac. 

; Transformer en nombre @ a 9 


;Multiplier par 19 
;Rajouter l’autre 
; Total: nombre de GS a 99 


;Stocker nombre dans pointeur 


; Suivant 


886 
887 
888 
889 
899 
891 
892 
893 
894 
895 
896 
897 
898 
899 


991 
992 
993 
994 
395 
936 
997 
2398 
939 
919 
911 
912 
913 
914 
915 
916 
917 
918 
919 
929 
921 
922 
923 
924 
925 
926 
927 
928 
929 
939 
931 
932 
933 
934 
935 
936 
937 
938 
939 
949 
941 
942 
943 
944 
945 
946 
947 
948 
949 
959 
951 
952 
953 
954 
955 
956 
957 
958 
959 
969 
961 


971E 
9721 
9722 
9724 
9726 
9728 
9729 
972A 
972C 
972D 
972E 
9731 
9732 
9733 
9736 
9737 
9734 
973B 
973C 
973D 
973F 
9741 
9743 
9744 
9745 
9748 


974A 
974C 
974F 
9752 
9753 
9754 
9757 
9758 
975B 
975C 
975F 
9762 
9765 
9768 
9769 
976D 
977 
9771 
9774 
9777 
977A 
977B 
977F 
9782 
9783 
9786 
9789 
978C 
978D 
9799 
9794 
9797 
9798 
9799 
979A 
979D 
97AS 
97A1 
97A4 
9747 


97AA 
97AB 
974E 


FA3D97 
7E 
FE29 
29F6 
19D5 


FD369091 
CDB797 
E5 
21D499 
CDGEGO 
CD44A96 
E1 
FD360964 
CDB797 
ES 
21ED99 
CDA99A 
CDEU96 
E1 
22FA91 
DD21AA97 
CD1696 


ES 
2AFA91 
CDB797 


SUI TNUM3 : 


NODXCHIF: 
VERSPACE : 


ERRNUM: 


RET 
POP 
CALL 
JR 


; MODIFICATION 


, 


MODIFIER: 


MODADR : 


LD 
CALL 
LD 
PUSH 
PUSH 
CALL 
POP 
CALL 
PUSH 
LD 
LD 
CALL 


M, NODXCHIF 
A, (HL) 
22SH 

NZ, BCLNUM3 
BCLNUM2 


PRCHAIN 
A 

(DE), A 
DE 

$-3 
SUITNUM3 
32 

Z 

AF 
INPUTERR 
VRFNUM 


D'UNE REFERENCE 


A,7 

SUPMOD 
(ACC) ,HL 
DE 

DE 

CLS9 

HL 

LGNCOPY 

BL 

DE, TAMPON+9 
HL, MESS2 
INPUT 
VRFNOM 

HL 
(IY+@),1 
LGNCOPY 

HL 

HL, MESS3 
GEH 

VRFPRE 

HL 
(1Y+G),100 
LGNCOPY 

HL 

HL, MESS5 
INPUT 
VRFNUM 

HL 
(ACC+2),HL 
IX, MODADR 
ENRADR 

HL 

DE 

DE, HL 

HL, (ACC) 
DETRUIRE 
DE 

HL, (LISTES+2) 
({TAMPON+7),HL 
FINMODIF 


HL 
HL, (ACC+2) 
LGNCOPY 
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; Plus de caracteres, terminer 


; Jusqu’au prochain espace 
; Continuer, jusqu’a 4 nombres 


; Copier le numero (chaine) 


; Termine si pas de numero 
; Curseur 


; Ecrire le numero et fin 


;Remplir pointeur avec des @ 
;Et continuer 

;Est un espace (ASCII 22H)? 
;Oui, ok 

;Non, vider pile et erreur 

; Correction 

;Et recommencer 


; Chaine 7= “MODIFIER” 

;Partie commune avec supprimer 
; Adresse ancien pointeur 

; Adresse bloc a modifier 


; Dans HL 
; Copier le nom en ZONE 


;Place pour faire nouveau bloc 
; "Nom: * 

;Editer l’ancien nom 

;Verifier le nouveau nom 


; Flag a 1 pour prenom 
; Idem pour le prenom 


; Call (BC) 


; Flag <>1 pour la suite 
; Idem pour le numero 


; Stocker 
; Sub-routine pour ENRADR 
;Editer l’adresse 


; Adresse ancien pointeur 
; Enlever ancien 


;Fin listes 
;... comme adresse de bloc 
;Integrer nouv. bloc et point. 


; Adresse dans ancien bloc 
; Copier une ligne 


962 
963 
964 
965 
966 
967 
968 
969 
979 
971 
972 
973 
974 
975 
976 
977 
978 
979 
989 
981 
982 
983 
984 
985 
986 
987 


989 
999 
991 
992 
993 
994 
995 
996 
997 
998 
999 


1991 
1902 
1093 
1904 
1905 
1206 
1907 
1008 
1009 
1919 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1939 
1931 
1932 
1933 
1934 
1935 
1936 
1937 


97B1 
97B4 
97B5 
97B6 


97B7 
97B8 
97B9 
97BA 
97BC 
97BD 
97BE 
97BF 
97Ca 
97C3 
97C5 
97C6 
97C7 
97CA 
97CB 
97CE 
97D1 
97D2 
97D3 


97D4 
97D7 
97DA 
97DD 
97DF 
97E2 
97E5 
97E6 
97E9 
97EC 
97EF 
97F2 
97F5 
97F8 
97FB 
97FE 
9891 
9894 
9897 
98SA 
989B 
982C 


989F 
9811 
9814 
9817 
981A 
981D 
9829 
9823 


9826 
9827 
9829 
982C 
982F 
9839 
9831 
9833 
9836 
9839 
983C 


22FA91 
E1 
C5 
c3 


7E 
23 
B7 
280F 
D5 
4F 


FD7791 
21F395 
221A93 
269C 
CDF89A 
CD5A9A 
2C 
CD75BB 
CD669B 
215791 
CD3E9B 
11948E 
CD8996 
CD6CBB 
CD7G9A 
11908E 
CD1C93 
D2F894 
CD5198 


3E08 

CDD497 
CD2698 
CD6CBB 
CD619A 
218191 
CD3E9B 
C3F395 


D5 
CB7E 
C4BD98 
22F891 
62 

6B 
26900 
CDB798 
CDB798 
CDB798 
2GFB 


LD (ACC+2),HL 
POP HL 
PUSH BC ;JP (BC) 
RET 
LGNCOPY: LD A, (HL) ;Longueur de la ligne 
INC HL 
OR A ;Nulle ? 
JR Z, LGNVID ;Oui, aviser 
PUSH DE 
LD C,A 
XOR A 
LD B,A ;Longueur dans BC 
LD DE, ZONE 
LDIR ;Recopier dans ZONE 
LD (DE),A ;Mettre un Zero a la fin 
POP DE 
LD BC, INPUT ;Ligne sera editee 
RET 
LGNVID: LD BC, INPUTVID ;Ligne vide sera editee 
DEC (IY+@) ;Est au prenom ? 
RET 2Z ;Oui, ok. 
DEC HL ;Non,ne plus avancer dans bloc 
RET ; (car derniere ligne atteinte) 
SUPMOD: LD (IY+1),A ;Stocker code operation 
LD HL, CHOIX3 ; Adresse de retour 
LD (BREAKAD) , HL ;... en cas de Break 
LD H,12 ; Centrage 
CALL FEN2 ;Fenetre inferieure 
CALL POSHAUT ;Preparer place 
INC L 
CALL LOCATE ;Et positionner curseur 
CALL PEN9 
LD HL,MESS11 
CALL PRCHAIN ; "NOM 4 "(traiter)"? 
LD DE, TAMPON +4 ; Emplacement 
CALL ENRNOM ; Demander nom a traiter 
CALL CLSS 
CALL LOC+15 
LD DE, TAMPON ; Emplacement 3 prem. lettres 
CALL SEEKNOM ; Rechercher 
JP NC, NONTROUV ; Pas trouve, message et fin 
CALL CONFIRM ; Demander confirmation 
RET C ;Confirmation, ok. 
POP AF ;Vider pile 
JP RETOUR ;Retourner au menu principal 


SUPPRIME : LD A,8 ; Chaine 8= "SUPPRIMER" 
CALL SUPMOD ;Partie commune 
CALL DETRUIRE ;Detruire pointeur et bloc 
CALL CLS9 
CALL LOC 
LD HL, MESS14 ; "Suppression effectuee." 


CALL PRCHAIN 


JP 


CHOIX3 ; Choix encore/ retour/ sauver 


;RETIRER UN BLOC ET UN POINTEUR 


DETRUIRE: PUSH DE 


; Adresse du bloc 


BIT 7,(HL) ; Appartient a une serie ? 
CALL NZ, SERIE oui, aviser 

LD (ACC),HL 

LD H,D 

LD L,E ; Debut du bloc 

LD B,9 

CALL SAUTLGN ;Sauter le nom 

CALL SAUTLGN Sauter 6 jr10m 


BCLSAUT: CALL SAUTLGN 


JR 


; Sauter autres lignes 
NZ, BCLSAUT ;Jusqu’a ligne vide = fin 
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1938 
1939 
1949 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
148 
1949 
1959 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1969 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1979 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1989 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
19089 
1999 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1119 
1111 
1112 
1113 


983E 
983F 
9849 
9841 
9842 
9844 
9845 
9847 
984A 
984B 
984C 
984E 
984F 
9859 
9851 
9853 
9856 
9857 
985A 
985B 
985C 
985D 
985E 
9869 
9861 
9862 
9863 
9864 
9866 
9867 
986B 


ED539229 
ED4B9429 


986F ZB 


9879 
9874 
9875 
9876 
9879 
987C 
987E 
987F 
9882 
9883 
9884 
9885 
9887 
9888 
988B 
988c 
388F 
9899 
9891 
9893 
9894 
9895 
9896 
93897 
9898 
9899 
989A 
989B 
989c 
989E 
98A9 
9843 
9846 
98A7 
98A9 
98AC 


98AD 
98AF 


98B1 
98B2 
98B4 
98B5 


ED43G429 
78 

B1 
CAAB99 
219@D29 
FDE3 


C5 BCLEDETR: 


B1 
2GEQ 
FDE1 
2A9929 
219999 
B7 
ED42 
220029 
c3 


DDE5 


DIFF: 


PUSH HL 

LD B,H 

LD Cc,L 

OR A 

SBC HL,DE 

PUSH HL 

POP IX 

LD HL, (LISTES+2) 
INC HL 

OR A 

SBC HL,BC 

LD B,H 

LD C,L 

POP  HL 

LDIR 

LD HL, (ACC) 
PUSH HL 

LD BC,9 

ADD HL,BC 

PUSH HL 

EX DE, HL 

OR A 

SBC HL,DE 

LD B,H 

LD C,L 

POP HL 

POP DE 

LDIR 

DEC DE 

LD (LISTES+2),DE 
LD BC, (LISTES+4) 
DEC BC 

LD (LISTES+4),BC 
LD A,B 

OR C 

JP Z, CREER 

LD HL, LISTES+13 
EX (SP),1Y 
PUSH BC 

LD BC,9 

LD E, (HL) 

INC HL 

LD D, (HL) 

PUSH IY 

EX (SP),HL 
CALL ICOMP 

POP HL 

CALL C,DIFF 

EX DE, HL 

OR A 

SBC HL,BC 

EX DE, HL 

LD (HL),D 

DEC HL 

LD (HL),E 

ADD HL,BC 

POP BC 

DEC BC 

LD A,B 

OR C 

JR NZ, BCLEDETR 
POP IY 

LD HL, (LISTES) 
LD BC,9 

OR A 

SBC HL,BC 

LD (LISTES) ,HL 
RET 

PUSH IX 

EX (SP),HL 

EX DE, HL 

OR A 

SBC HL,DE 

EX DE,HL 

POP HL 
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;Fin du bloc 


;Longueur du bloc 


;Dans IX 
;Fin listes 


;Moins fin du bloc 


;=longueur blocs derriere 
; Debut de bloc 

;Bloc detruit 

; Debut du pointeur 


;Fin du pointeur 


;Dans DE 
; Dans HL':fin listes provisoire 
;Longueur du reste 


;Fin du pointeur 
; Debut du pointeur 
;Detruire le pointeur 


;:Nouvelle fin listes 
;Nombre d’elements 
;Un de moins 


; Plus d’elements? 

;Alors recreer un annuaire 
;lere adresse, ler pointeur 
;Fin bloc detruit dans IY 
;Modifier adr. des pointeurs 


; Prendre adresse de bloc 


;Fin bloc detruit dans HL 

; Comparer 

;Bloc detruit avant où apres? 
;:Si avant, soustraire longueur 
;Soustraire 9 en plus 

;Et restocker le tout 


;Pointeur suivant 
;Restituer compteur 


Atteint zero ? 
;Non, continuer 
;Restituer IY 
; Debut liste 2 


;Retirer 9 


;Longueur du bloc detruit 
; Dans HL 


; Soustraire de DE 


;Restituer HL 


1114 
1115 
1116 
1117 
1118 
1119 
1129 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1139 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1149 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1159 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1169 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1179 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1189 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 


98B6 
398B7 
98B8 
98B9 
98BA 
98BB 
98BC 


98BD 
98ca 
g8c1 
g8c2 
98C4 
98Cc6 
98c7 
98c9 
98CB 
98CE 
98CF 
98D0 
38D1 
98D2 
98D4 
98D5 
98D7 
98D8 
98D9 
98DA 
98DC 
98DE 
98E9 
98E3 
98E5 


98E7 
98E8 
98E9 
98EA 
S8EB 
S8EC 
98EF 
98F2 
98F5 
98F6 
98r9 
98FA 
98FB 
98FC 
98FE 
98FF 
9992 
9994 
9997 
9998 
9999 
99SA 
999B 
998C 
990GF 
9919 
9912 
9915 
9916 
9917 
991A 
991D 


319990 


E5 
E5 
3c 
4F 
47 
216191 
CD3E9B 


CD3E9B 
23 
3E29 
CD5ABB 


SAUTLGN : 


SERIE: 


FINSERI1 : 


FINSER2: 
DERSERIE: 


BIT 


PUSH 
ADD 


INC 
RES 
POP 


OR 
SBC 
SET 
SBC 
CALL 
JR 
JR 


A, (HL) 
A 


C,A 
HL, BC 
A 


BC,9 

HL 

HL 

7, (HL) 
NZ, DERSERIE 
HL, BC 

7, (HL) 
Z,FINSER2 
ELSERIE+1 
BL 

C 

HL 

HL, BC 

7, (HL) 

HL 

7, (HL) 

HL 


A 

HL, BC 

7, (HL) 
HL, BC 
ELSERIE+1 
C,FINSER2 
FINSERI 


, 


;Longueur de la àigne 

; Compter octet de longueur 
;B vaut @ 

; Ajouter a HL 

;Replacer longueur et flag z 


;Nom appartient a une serie 


;Dernier de la serie ? 

; Oui, faire en fonction 
;Pointeur suivant, +1 
;Dernier de la serie ? 

;Non serie de 3 au moins, ok. 
; Appartient a la meme serie ? 


; Oui, ok. 


; Suivant sera seul... 
; Annuler bits 7 


;Restituer pointeur initial 


;Pointeur precedent 

;: Sera dernier de la serie 
;Precedent encore 

; Appartient a la meme serie ? 
;Oui, ok. 

;Non serie de 2 


; CHOIX ENTRE REFERENCES SEMBLABLES 
;ET CONFIRMATION. 


PLUSIEUR: PUSH HL 


BCLPLUS : 


PUSH 
INC 
LD 


BL 

4 

C,A 

B,A 

BL, MESS12 
PRCHAIN 
ALALIGN2 
HL 

DE, 7 
HL,DE 

DE 

DE 


PRCHAIN 
HL 

A, 32 
PRINT 
A, (HL) 


A 
NZ, PRCHAIN 


ALALIGNE 
CSCRUT 
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; Choix dans une serie 
; Premier de la serie 
;Nombre d’elements 


;: "Choisissez une lettre: 


; Sauter 1 ligne et a la ligne 
:Premier pointeur 


;Lieu de l’adresse du bloc 


;DE= 9 
;Premiere lettre 
;Ecrire les noms et prenoms 


;Ecrire a), b), etc. 


;LD HE, (HL): adresse du bloc 
;Ecrire le nom 


;Puis un espace 

;Longueur du prenom 

;Nulle ? 

;Non, alors ecrire le prenom 
;Ligne suivante 

; Touche enfoncee 


1199 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1220 
1291 
1292 
1293 
1254 
1295 
1296 
1207 
1298 
1209 
1219 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1229 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1239 
1231 
1232 


1233 
1234 
1235 
1236 
1237 
1238 
1239 
1249 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1259 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1269 
1261 
1262 
1263 
1264 
1265 


9929 
9923 
9924 
9925 
9926 
9927 
9929 
992C 
992E 
992 

993 

9934 
9936 
9937 
3939 
993A 
993B 
993C 
993D 
993E 
993F 
9949 
9941 
9944 
9945 
9946 
9947 
9948 
994B 
994C 
994D 
994E 
994F 
9959 


9951 
9954 
9955 
9956 
9959 
995C 
995F 
3962 


9963 
9964 
9967 
9969 
996A 
996D 
996E 
996F 
9971 
9972 
9973 


9974 
9977 
997A 
997C 
997F 
9981 
9984 
9987 
998A 
998B 
998c 
998F 
9992 
9995 
9998 
999B 
999D 
9949 
9942 


DCS6BB 
E1 

19 

F1 

3C 
19D5 
CDS6BB 
FEFC 
c8 
CD489A 
39F5 
D661 


BCLLETT: 


919799 
29 
5E 
23 
56 
E1 
AF 


C2E798 CONFIRM: 


; LECTURE 
LIRFICH: 


F1 
CD6CBB 
CD619A 
CD669B 
219499 
CD3E9B 
2692 
CDCA92 
4399 
9E92 


LECTERR: 


CALL C,CWAIT 
POP HL 

ADD HL,DE 

POP AF 

INC A 

DJNZ BCLPLUS 
CALL CWAIT 

CP QFCH 

RET 2Z 

CALL MINUS 

JR NC, BCLLETT 
SUB ‘a 

CP C 

JR NC, BCLLETT 
LD 
ADD 


CALL CLS9 
POP BC 
POP HL 
ADD HL,BC 
PUSH HL 

LD BC, 7 
ADD HL,BC 
LD E, (HL) 
INC HL 

LD D, (HL) 
POP HL 
XOR A 


JP NZ, PLUSIEUR 
PUSH DE 

EX DE, HL 

CALL PRNOM 

CALL DESCEND 

LD HL, MESS13 
CALL PRCHAIN 

EX DE, HL 


POP DE 
CALL CHAIT 
CP QFCH 
RET 2Z 

CALL MAJUS+1 
CCF 

RET C 

CP "N" 

RET 2Z 

SCF 

RET 

DE L’ANNUAIRE 
LD HL, NOMF ICH 
LD DE, TAMPON 
LD B,11 

CALL OPEN 

JR NC, LECTERR 
LD HL, LISTES 
CALL KINFICH 
CALL CLOSE 

RET C 

POP AF 

CALL CLS9 

CALL LOC 

CALL PENS 

LD HL, MESSS 
CALL PRCHAIN 
LD B,2 

CALL CHOIX 

DW CCHGDSC 
DW RETOUR-6 
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3; Oui, 


;Pointeur suivant 
Lettre 

;Lettre suivante 
;Ecrire tous 


; Attendre une lettre 


;:Break ? 
; Oui, 
; Transformer en m 
;Pas une lettre, 


pas de choix, 


termine 
inuscule 
ignorer 


;Numero correspondant 
;Depasse le nombre de ref.®? 


;Oui, 


;Multiplier par 9 


alors erreur, 


ignorer 


attendre et laisser lire 


;Noter que B=@ (DJNZ en 1195) 


;Premier pointeur 
;Pointeur demande 


: Sur adresse de b 


;Placer dans DE 
;Pointeur demande 
; Demander confirm 


loc 


ation 


;Plusieurs ref.,alors quelle ? 


; Adresse de bloc 
; Aussi dans HL 
;Ecrire la ref. 
;Ligne suivante 
; (traitement) 


: Dans HL adresse 
;Restituer adress 
; Attendre une tou 
;Break ? 

; Oui, pas de conf 


en entier 


(O/N)?" 


pointeur 
e du bloc 
che 


irmation, 


; Transformer en majuscule 
;>N'est pas une lettre? 


; Oui, alors comme 
; Touche N? 
; Oui, pas de conf 
;Sinon, c=i 


Oui 


irmation: 


; Confirmation faite 


;Nom du fichier 


; Tampon de lecture 
;Onze lettres dans le nom 


; Ouvrir le fichie 
; Pas trouve, 
; Emplacement du f 
:Lire le fichier 
;Et le fermer 


r 


aviser 


ichier 


;Retour si tout va bien 


;Detruire adresse 
; Curseur 


; "Annuaire absent 


de retour 


; Deux possibilites 


; Changer de disquette 


fin 


c=9 


1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1289 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1299 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1392 
1393 
1394 
1395 
1396 
1307 
1398 
1399 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1349 
1341 


99A4 
99A6 


99A8 
99AB 
99AE 
99B1 
99B4 
939B7 


99BA 
99BB 
99BC 
99BD 
99BE 
99BF 
99cg 


99c1 
99c4 
99cs5 
99c6 
99c7 
99c8 


99c9 
ggcc 
99CF 
99D2 
99D5 
99D8 
99DA 
99DD 
99EQ 
99E2 
99E3 
99E6 
99E8 
99EB 
99EC 


99ED 
99F1 
99F4 
99F7 
99F8 
99FB 
99FC 
99FD 
99FF 
9A92 
9A94 
9A97 
9A98 


SAGA 
9AGD 
9A19 
9413 


9A15 
9A18 
9A1A 
SA1D 
9A1F 


9422 
9A23 


3899 
A899 


219629 
229029 
220220 
219990 
229429 
C3A492 


CREER: 


CCREER 
CREER 


HL, LISTES+6 
(LISTES),HL 
(LISTES+2),HL 
HL,9 
(LISTES+4),HL 
RETOUR 


FO1S9: 


; MESSAGE 


CD629B 
211692 
CD75BB 
219891 
CD3E9B 
3ESD 
CD5ABB 
CDS6BB 
FEFC 
F5 
CD669B 
3E12 
CD5ABB 
F1 

cg 


WAIT: 


FD36G009 PRNOM: 
CD3E9B 
CD189A 


CD4E9B 
CD339B 
CD1DS8A 
1898 


CD1D9A 
3EGD 
CD5ABB 
3ESA 
C35ABB 


7C 
92 


ICOMP : 


ELSERIE: 


SUIVANT: 


ALALIGN?2: 
ALALIGNE: 


DESCEND: 


HL 
A, (HL) 


HL 
(CHL) 


FO1S9+3 
D,H 

E,L 

BL, HL 
HL, DE 


; Ou creer un annuaire vide 


; Debut des listes (vides) 

; Est aussi debut de la liste 2 
;Et sa fin 

;Zero elements 


; Appartient a la meme serie ? 
;Deuxieme caractere 

;Bit 7-9 si dern. autre serie 
;Premier caractere 

;Bit 7-9 si pas dans une serie 
; Donc c=1 si dans meme serie 


;Multiplier par 9 (3%3) 
;Multiplier par 3 


ET ATTENDRE UNE TOUCHE 


CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
CALL 
CP 
PUSH 
CALL 
LD 
CALL 
POP 
RET 


CALL 
CALL 
CALL 
JR 


CALL 
LD 
CALL 
LD 
JP 


LD 
SUB 


PEN1 
HL,2216H 
LOCATE 
HL, MESS15 
PRCHAIN 
A, 13 
PRINT 
CWAIT 
GFCH 

AF 

PENS 

A, 18 
PRINT 

AF 


(1Y+9),0 
PRCHAIN 
ALALIGNE 
HL 
(IY+9) 
A, (HL) 


A 

NZ, PRNOM+4 
(1Y+9) 

NZ, DESCEND 
(1Y+9) 

HL 

PRNOM+4 


HORPOS8 
PRCH1 

DESCEND 
DESCEND 


DESCEND 
A,13 
PRINT 
A, 19 
PRINT 


A,H 
D 
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;Ecrire en clignotant 
;Bas de l’ecran 


; "Appuyez sur une touche..." 


;Se replacer en debut de ligne 
; Attendre une touche 
;,2 =1 si Break 


; Ecrire normalement 


; Supprimer le message 
;Restituer touche appuyee 


;Ecrire une reference entiere 
;Ecrire une ligne 

;Curseur, ligne suivante 
;Ligne suivante du bloc 

; Incrementer flag 

; Longueur de la ligne 

;Nulle ? 

;Non, ecrire lignes suivantes 
; Prenom de longueur nulle ? 
;Non, fin du bloc, terminer 
;Oui, continuer 

;.. .avec lignes suivantes 


; Curseur en colonné 8 
;Ecrire chaine dans (HL) 
; Descendre de 2 lignes 


; Passer a la ligne 


; Descendre d’une ligne 


; Comparer DE et HL 
;Octets forts differents ? 


1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1359 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1369 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1379 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1389 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1399 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1419 
1411 
1412 
1413 
1414 
1415 
1416 
1417 


9424 
9A26 
9A27 
SA28 
9A29 
9A2A 
942B 
gA2C 


9A2D 
9A2E 
9A39 
9431 
9433 
9434 


9A35 
9A36 
9A38 
9439 
9A3A 
9A3C 
9A3D 
SA3F 
9449 
9A41 
9443 
9444 
9446 
9A47 


9448 
JA4A 
9A4B 
9A4D 
JA4E 
JA4F 
9451 
9A52 
9A54 
9455 
9A56 
9A58 
9A59 


SA5A 
9A5D 
9A69 


9461 
9A64 
9466 
SA69 
SA6B 
SAGE 
SA79 
9A73 


9A76 
9A77 
SA7A 
94A7B 
9SA7E 
9481 
9A82 


9483 
9A84 
9485 
9A86 


9A87 


219191 
22FC91 
cg 


219291 
189D 
211591 
1898 
219698 
1893 
210591 
C375BB 


E5 
2AFC91 
2C 
22FC91 
CD75BB 


cg 


>; VERIFICATIONS DE CODES ASCII 


CHIFFRE: 


MAJUS: 


MINUS: 


3 POSITIONNEMENTS DU CURSEUR 


POSHAUT : 


LOC: 


LOC2: 


RELOCATE: 


MINAB: 


COPIE: 


JR 

LD 

SUB 
RET 
SBC 
RET 
INC 
RET 


LD 
CP 
RET 
CP 
CCF 
RET 


LD 
CP 
CCF 
RET 
CP 
RET 
CP 
CCF 
RET 
CP 
RET 
SUB 
SCF 
RET 


RET 


NZ, $+5 
A,L 


>Aa»NtH 
> 


A, (HL) 
"9" 41 
NC 
“g" 


z'+1 


"2"+1 


À, 32 


LD HL, 1S1H 
LD (POS) ,HL 
RET 

LD HL, 12H 
JR LOC2 

LD HL, 115H 
JR LOC2 

LD HL, 896H 
JR LOC2 

LD HL,@1G5H 
JP LOCATE 
PUSH HL 

LD HL, (POS) 
INC L 

LD (POS) ,HL 
CALL LOCATE 
POP HL 

RET 

CP B 

RET NC 

LD B,A 

RET 

OR A 
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;Oui, vers 1346 

; Comparer octets faibles 
> HL = DE, retour (A=@) 
;:A= FFH si DE > HL 


; A=1 sinon 
;Flags positionnes 


;Est un chiffre entre 9 et 9 ? 
;Non, trop grand 


3:c=1 si chiffre 
; Transformer en majuscule 


; Trop petit, pas une lettre 


; Est deja une majuscule, ok. 


;Entre Z et a, pas une lettre 
; Trop grand, pas une lettre 


; Transformer en majuscule 
;Retenue = est bien une lettre 


; Transformer en minuscule 


;initialiser POS,... 
;...emplacement du curseur 


; Placements divers 
; Debut de deuxieme ligne 
; Debut d’avant-derniere ligne 


; Colonne 8, ligne 6 
; Debut de la ligne 5 


; Emplacement du curseur 
;Ligne suivante 


;Replacer curseur 


;MIN (4A,B) dans B 
;À >B ok. 
;Sinon B= A 


; Copier ligne entree dans bloc 


1418 
1419 
1429 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1439 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1449 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1459 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1469 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1479 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1489 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1499 
1491 
1492 
1493 


9A88 
9AB8A 
9A8D 
9A8E 
9A99 
9A91 
9492 
9493 
9A94 
9A96 
9497 
9A98 
9A99 
SA9A 
SA9B 
9A9C 


SADB 


SADC 
9ADF 
SAEO 
9AE1 
9AE2 
9SAE4 
SAES5 
SAE6 
9AE7 
9AE8 
SAEA 


JAEB 
SAED 
SAFO 
9AF2 
9AF5 
9AF8 
9AF9 
9AFB 
9AFE 


28SF JR 
CD8394A COPIEZ2: CALL 
78 LD 
2600 LD 
ES PUSH 
12 LD 
13 INC 
4F LD 
EDBQ LDIR 
E1 POP 
37 SCF 
cg RET 
12 COPVID: LD 
13 INC 
AF XOR 
cg RET 


Z, COPVID 
MINAB 
A,B 

B,9 

HL 
(DE),A 
DE 

C,A 


HL 


(DE), A 


; ENTREES DE LIGNES 


E5 INPUTVID: PUSH 
210000 D 
22G08F LD 
1894 JR 
21BB99 INPUTERR : LD 
E5 INPUT: PUSH 
CD629B CALL 
CD669A CALL 
E1 POP 
CD3E9B CALL 
CD669B CALL 
CD1894A CALL 
21008F LD 
CD5EBD CALL 
CA1693 JP 
E5 PUSH 
C5 PUSH 
2600 LD 
7E BCLINPUT : LD 
23 INC 
34 INC 
B7 OR 
2@FA JR 
78 LD 
3D DEC 
F5 PUSH 
CD669A CALL 
3E14 LD 
CD5ABB CALL 
F1 POP 
C1 POP 
E1 POP 
c9 RET 
FD7E09 COMPARE: LD 
47 LD 
EB EX 
1A BCLCOMP: LD 
E67F AND 
BE CP 
co RET 
23 INC 
13 INC 
19F7 DJNZ 
cg RET 
; FENETRES 

3E02 FEN1: LD . 
CDB4BB CALL 
3E00 LD 
CD96BB CALL 
C36CBB JP 
E5 FEN2: PUSH 
3E02 LD 
CDB4BB CALL 
3E02 LD 


HL 

HL,9 
(ZONE), HL 
INPUT+1 
HL, MESS1 
BL 

PEN1 
LOC+5 

HL 
PRCHAIN 
PENQ 
ALALIGNE 
HL, ZONE 
EDIT 

Z, BREAK 
HL 

BC 

B,9 

A, (HL) 
HL 

B 


A 
NZ, BCLINPUT 


A, (IY+2) 
B,A 

DE, HL 

À, (DE) 
7FH 

(HL) 

NZ 

HL 

DE 
BCLCOMP 


A,2 
WINDOW 


PAPER 
CLSS 
HL 

A,2 
WINDOW 
A,2 
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;Si vide, mettre un zero 
; Tronconner 


; Longueur de la ligne 


;BC= longueur 
; Copier 


;Retenue= ligne non vide 
:Mettre un Zero 


;,c= © 


;: Editer une ligne vide 
;Mettre deux zeros 


;Editer avec message d’erreur 
; Editer avec message dans (HL) 
;Ecrire en clignotant 

;Placer curseur 

; Message a ecrire 


; Ecrire normalement 
;Ligne suivante (derniere) 
; Emplacement de la chaine 


;... à editer 
;Break, sauter a BREAKAD 


; Calculer longueur de la ligne 


;Zero final ? 

;Non, continuer 

; Dans A 

; Pas compter le zero final 
;Replacer curseur 


;Et effacer le bas de l’ecran 


; Comparer 3 ou 4 caracteres 
;Nombre dans B 

;Pas tenir compte des bits 7 
;Differents, termine 


; Continuer 
;lci flag z mis encore 


; Plus grande fenetre 
;Positionner 


; Fond turquoise 
; Effacer et retour 
;:Plus petite fenetre 


;Grande fenetre d’abord 


1494 
1495 
1496 
1497 
1498 
1499 
1599 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1519 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1529 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1539 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1549 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1559 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1569 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 


9B9S 
9BG3 
9B96 
9B97 
9B99 
9BQC 
9BSF 
9B12 
9B14 


9B16 
9B17 
9B18 
9B1B 
9B1C 
9B1F 
9B29 
9B21 
9B22 
9B24 
9B25 
9B26 
9B27 
9B28 
9B29 
9B2C 
9B2D 
9B2E 
9B2F 
9B32 


9B33 
9B34 
9B35 
9B36 
9B37 
9B38 
9B3B 
9B3C 
9B3D 


9B3E 
9B3F 
9B49 
9B41 
9B42 
9B44 
9B47 
9B4A 
9B4C 
9B4D 


9B4E 
9B59 
9B51 
9B54 
9B55 


9B56 
9B57 
9B5A 
9B5B 
9B5C 
9B5D 
9B6S 
9B61 
9B62 
9B64 
9B66 
9B68 


CD96BB 
CD6CBB 
E1 
2E91 
CD75BB 
214D91 
CD3E9B 
3E03 
18D7 


C5 
E5 
21D991 


c9 


C399BB 


; ECRITURES DE 


PRCODCH: 


DONNECOD : 


PRCH1: 


PRCHAIN: 


HORPOS8 : 


; ENCRES 


ECR1: 


ECR9: 


PEN1: 
PENG: 


PAPER ; Fond magenta 
CLSS ; Vider 

HL ;Dans H colonne 

L, 1 ;Et dans L ligne 1 
LOCATE ;Pour le titre 

HL, MESS19 

PRCHAIN ;Ecrire le titre 
A,3 ;Petite fenetre 
FEN1+2 


CHAINES ET DE CODES 


PUSH BC Ecrire chaine codee 

PUSH HL 

LD  HL,CODORD ;Debut table d'adresse 

OR A ; Code de la chaine 8 ecrire 
CALL Z, DONNECOD ;Si nul, alors (IY+1) 

DEC A ;Nombre entre @ et 7 

ADD A,A ;Multiplier par deux 

LD C,A 

LD B,@ 

ADD HL,BC ;Ajouter a HL 

LD A, (HL) 

INC HL 

LD H, (HL) 

LD L,A ;LD HL, (HL):donner adr. chaine 
CALL PRCHAIN ;Ecrire cette chaine 

POP HL 

POP BC ;Et poursuivre ecriture 

RET 

LD A, (IY+1) 

RET 

PUSH DE ;Ecr. chaine pointee par (HL) 
LD E, (HL) 

INC HL 

LD D, (HL) ; (HL) 

EX DE, HL ;Dans HL 

CALL PRCHAIN ;Ecrire la chaine 

EX DE, HL 

POP DE 

RET 

PUSH BC ;Ecrire chaine alphanumerique 
LD B, (HL) ; Longueur de la chaine 

INC HL 

LD 4, (HL) ;Caractere suivant 

CP 29H ;inferieur a 29H ? 

CALL NC, PRINT ;Non, ok. 

CALL C,PRCODCH ;Oui, alors ecr. chaine codee 
DJNZ PRCHAIN+2 

POP BC 

RET 

LD A,8 ;Placer curseur sur colonne 8 
PUSH HL 

CALL HPOS ;Positionnement horizontal 
POP HL 

RET 

PUSH HL ; Ecrire en clignotant 

CALL PENI1 ;...et en sauvant HL 

POP HL 

RET 

PUSH HL ;Ecrire en blanc 

CALL PENS ;...et en sauvant HL 

POP HL 

RET 

LD A,3 ; Ecrire en clignotant 

JR PENG+2 

LD A, 1 ;Ecrire en blanc 

JP PEN 

FIN ------- 


1579 
1571 
1572 END 
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8. LES ROUTINES SYSTÈME DES CPC 


Voici à présent la liste détaillée des routines des trois CPC. L'es- 
sentiel de ces routines est commun aux trois, avec des vecteurs aux 
mêmes adresses. Toutefois, les vecteurs arithmétiques font exception 
(voir chapitre précédent), d’où d’ailleurs quelques problèmes de com- 
patibilité. De plus, il existe une douzaine de vecteurs des 664 et 6128 
qui n'existent pas sur le 464, et un vecteur du 6128 qui n'existe pas 
sur le 664. 

Pour chaque vecteur on trouvera : 


e Son adresse ou ses adresses si elles sont distinctes sur les trois CPC. 


e Sonétiquette (valable pour ZEN), qui est utilisée dans les program- 
mes de cet ouvrage. (Si vous utilisez DAMS, remplacez les ponc- 
tuations comme (?) par d’autres caractères.) 


e Sa description détaillée. Pour plus de précisions éventuelles, 
reportez-vous au texte du livre et aux exemples. 


e Éventuellement des notes, indiquant les registres modifiés, etc. 


e Instruction désigne la manière dont les adresses suivantes sont appe- 
lées : par un jump (C3H), un restart (on se référera alors à sa des- 
cription), mais ne figure pas lorsque l'adresse d'exécution coïn- 
cide avec l'adresse d'appel. 


e Enfin les adresses auxquelles les vecteurs sautent, après le restart 
qui les lance. 


Les vecteurs sont classés par ordre d'adresses croissantes et grou- 
pés par types précédés d’une courte description. 


M LES RESTARTS 


Les restarts sont des instructions spéciales du Z80 qui permettent 
de sauter directement aux adresses 0, 8H, 10H, 18H, 20H, 28H, 30H, 
38H. Le saut s'effectue comme pour un CALL : le PC est en effet 
empilé ; mais l'exécution est nettement plus rapide. De plus, ces ins- 
tructions ne prennent qu'un octet dans la mémoire, contre trois pour 
un CALL normal. 

Outre les routines exécutées par les restarts, les adresses O à 40H 
de la RAM contiennent quelques petites routines supplémentaires qui 
peuvent être utiles. Ces routines doivent être appelées par un CALL 
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normal. On ne leur a pas donné d'étiquettes spéciales, leurs adres- 
ses ne comprenant que deux chiffres. 

Il est peu prudent de modifier les routines des restarts, car ils sont 
fréquemment utilisés par le système. En particulier, RST 8, RST 18, 
RST 28 sont les instructions de lancement des vecteurs principaux. 

Toutefois, le RST 30 est laissé au bon usage de l'utilisateur. 


Étiquette : aucune (instruction). 

Description : Réinitialisation complète de la machine. Toute la RAM 
est effacée, sauf la RAM supplémentaire du 6128. Produit en 
BASIC par l’appui des trois touches (CTRL) (SHIFT) (ESC). 

Notes : À éviter ! 

Adresse d'exécution : 0. 


Étiquette : aucune (instruction). 

Description : Exécution d’une routine d'adresse inférieure à 4000H. 
Les deux octets qui suivent le RST 8 dans le programme détermi- 
nent à la fois l'adresse de la routine (par leurs bits O à 13) et l’état 
des ROM : bit 15 pour la ROM supérieure et bit 14 pour la ROM 
inférieure, le bit étant mis si l’on veut que la ROM soit 
déconnectée. 

Notes : Tous les registres sont conservés, sauf le groupe 1 bis (voir 
à ce sujet le Chapitre 2). 

Instruction : Jump. 

Adresses d'exécution : B982H (464), B9I8AH (664 et 6128). 


Étiquette : OBH. 
Description : Comme le RST 8, mais l’adresse se trouve dans HL. 


Instruction : Jump. 
Adresses d'exécution : B97CH (464), B984H (664 et 6128). 


Étiquette : 0EH. 
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Description : Saute à l'adresse contenue dans BC, réalisant l’ins- 
truction imaginaire : JP (BC). 

Notes : Pour l'intérêt, voir aussi 001EH. 

Adresse d’exécution : OEH. 


Étiquette : aucune (instruction). 


Description : Exécution d’une routine d’une ROM secondaire, dont 
l'adresse est codée dans les deux octets qui suivent le RST 10 
dans le programme (voir RST 8). 


Notes : Tous les registres sont conservés, sauf IY et le groupe 1 bis. 
Instruction : Jump. 
Adresses d'exécution : BA16H (464), BA1DH (664 et 6128). 


Étiquette : 13H. 

Description : Comme RST 10, mais les deux octets sont dans HL. 
Notes : Voir RST 10. 

Instruction : Jump. 

Adresses d'exécution : BA10H (464), BA17H (664 et 6128). 


Étiquette : 16H 

Description : Comme OEH, mais avec DE. 
Notes : Voir OEH. 

Adresse d'exécution : 16H. 


Étiquette : aucune (instruction). 

Description : Permet d'appeler une routine en activant une ROM 
secondaire : les deux octets qui suivent le restart dans le pro- 
gramme donnent l'adresse d’une table où se trouve l'adresse de 
la routine à appeler, suivie du numéro de la ROM secondaire 
à activer (0 pour le BASIC, 7 pour le DOS), soit trois octets en tout. 
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Notes : Voir RST 10. Est utilisé dans les 664 et 6128 seulement, pour 
appeler le DOS (voyez les vecteurs correspondants, de BC77H 
à BC9BH). 

Instruction : Jump. 

Adresses d'exécution : B9BFH (464), B9C7H (664 et 6128). 


Étiquette : 1BH. 

Description : Exécution d’une routine d'adresse contenue dans HL 
n'importe où dans la mémoire, € contenant l’état des ROM : bit 
2 pour la ROM inférieure, bit 3 pour la supérieure, le bit mis indi- 
quant que la ROM est déconnectée. 

Notes : Voir RST 10. 

Instruction : Jump. 

Adresses d'exécution : B9B1H (464), B9B9H (664 et 6128). 


Étiquette : 1EH. 

Description : Un seul octet : JP (HL). 

Notes : Permet de réaliser des instructions supplémentaires. Par 
exemple, CALL Z,(HL), qui n'existe pas, est réalisé par CALL 
Z,1EH. 

Adresse d'exécution : 1EH. 


Étiquette : aucune (instruction). 

Description : Charge A avec (HL) en RAM, et ce quel que soit l’état 
de sélection des ROM. 

Notes : Voir RST 8. 

Instruction : Jump. 

Adresses d'exécution : BACBH (646), BAC6H (664 et 6128). 


Étiquette : 23H. 
Description : Comme RST 18, mais les deux octets sont contenus 
dans HL. 
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Notes : Voir RST 18. 
Instruction : Jump. 
Adresses d'exécution : B9B9H (464), B9C1H (664 et 6128). 


Étiquette : aucune (instruction). 


Description : Saut à une adresse de la ROM inférieure, dont l'adresse 
suit le RST 28. 


Notes : Voir RST 8. En sortie, la ROM inférieure est déconnectée. 
Instruction : Jump. 
Adresses d'exécution : BA2EH (464), BA35H (664 et 6128). 


Étiquette : aucune (instruction). 
Description : Restart libre pour l'utilisateur (8 octets libres). 
Notes : Initialement, contient une routine qui déconnecte la ROM 


inférieure en conservant son état précédent dans (002BH), sauf 
sur le 664, où l’on trouve un RST 0. 


Adresse d'exécution : 30H. 


Étiquette : aucune (instruction). 

Description : Point d'entrée des interruptions des périphériques. 
Instruction : Jump. 

Adresses d'exécution : B939H (464), B941H (664 et 6128). 


M LES VECTEURS DU NOYAU 


Le noyau (kernel) du système d’exploitation est la base même du 
système. || peut être appelé indirectement par les restarts ou par les 
vecteurs suivants, d'adresses B900H et suite. Ces vecteurs appellent 
comme les restarts des routines situées de B921H à BAE3H, qui sont 
les copies d’une partie du noyau. Il est très imprudent de tenter de 
les modifier, car elles gèrent les ROMS, les RAMS, et sont utilisées 


par le noyau lui-même et donc par tout le système, sans parler du 
BASIC. 


— 152 - 


Étiquette : ROMS. 

Description : Connecte la ROM supérieure. 

Notes : En sortie, À contient l'indicateur précédent de l’état des 
ROM : bit 2 pour l’inférieure, bit 3 pour la supérieure, le bit étant 
mis quand la ROM est déconnectée. 


Instruction : Jump. 
Adresses d'exécution : BASEH (464), BA5FH (664 et 6128). 


Étiquette : RAMS. 

Description : Déconnecte la ROM supérieure. 

Notes : Voir B900H. 

Instruction : Jump. 

Adresses d'exécution : BA68H (464), BA66H (664 et 6128). 


Étiquette : ROMI. 

Description : Connecte la ROM inférieure. 

Notes : Voir B900H. 

Instruction : Jump. 

Adresses d'exécution : BA4AH (464), BA5S1H (664 et 6128). 


Étiquette : RAMI. 

Description : Déconnecte la ROM inférieure. 

Notes : Voir B900H. 

Instruction : Jump. 

Adresses d'exécution : BA54H (464), BA58H (664 et 6128). 


Étiquette : ROMANT. 


Description : Restaure l’état antérieur des ROMS. En entrée, A con- 
tient l’état à restaurer (donné en sortie dans les routines précé- 
dentes, voir B900H). 
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Notes : Voir B900H. 
Instruction : Jump. 
Adresses d'exécution : BA72H (464), BA70H (664 et 6128). 


Étiquette : ROMSUP. 
Description : Connecte la ROM supérieure dont le numéro se trouve 
dans C (7 pour le DOS). 


Notes : En sortie, À et B contiennent l’état des ROMS (voir B900H), 
C le numéro de la ROM supérieure précédemment connectée. 


Instruction : Jump. 
Adresses d'exécution : BA7EH (464) BA79H (664 et 6128). 


B912H 
Étiquette : ROM. 
Description : Cherche quelle ROM supérieure est connectée. Le 
numéro en est placé dans A. 


Instruction : Jump. 
Adresses d'exécution : BAA2H (464), BA9DH (664 et 6128). 


CIE 
Étiquette : ROMCVZ. 


Description : Donne dans A la classe (80H=principale, 
1=secondaire), et dans HL le numéro de version et le numéro 
de marque d’une ROM supérieure dont le numéro a été donné 
dans C. 

Notes : Respectivement pour le BASIC et le DOS : version=0 et 
5 ; marque =1 et CO. 

Instruction : Jump. 

Adresses d'exécution : BA83H (464), BA7EH (664 et 6128). 


Étiquette : ROMSANT. 

Description : Opération inverse de ROMSUP (B90FH). Les regis- 
tres B et C donnés en sortie de ROMSUP doivent être retransmis 
en entrée. 
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Notes : BC est modifié. 
Instruction : Jump. 
Adresses d'exécution : BA8CH (464), BA87H (664 et 6128). 


Étiquette : LDIRRAM. 


Description : Exécute un LDIR dans les RAMS, même si les ROMS 
ont été connectées. En sortie, les registres sont comme après un 
LDIR classique et les ROMS sont dans leurs états antérieurs. 


Instruction : Jump. 
Adresses d'exécution : BAA6H (464), BAATH (664 et 6128). 


B91EH 

Étiquette : LDDRRAM. 

Description : Comme ci-dessus, mais avec un LDDR. 
Instruction : Jump. 

Adresses d'exécution : BAACH (464), BAA7H (664 et 6128). 


B921H 
Étiquette : TESTEV. 


Description : Utilisé pour le traitement des événements. 
Adresse d'exécution : B921H. 


M LES VECTEURS DU CLAVIER 


Ici commence la liste des vecteurs du système. Elle comprend 190 
vecteurs d'adresses constantes sur les trois CPC, de BBOOH à BD37H, 
répartis en douze groupes. Le premier d’entre eux est constitué par 
les vecteurs du clavier. 

Notez que tous les vecteurs du clavier sont appelés par des RST 8. 
Il va donc sans dire que le groupe 1 bis est modifié. Cette remarque 
est vraie pour la majorité des vecteurs système. 


Étiquette : CINIT. 
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Description : Initialisation du clavier. Outre le RESET (voir la sui- 
vante), les états et les valeurs des touches (y compris (CAPS 
LOCK)), les délais d'attente et de répétition sont remis à leurs 
valeurs par défaut. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 19E0H (464), 1B5CH (664 et 6128). 


Étiquette : CRESET. 


Description : RESET du clavier. Le BREAK reprend sa valeur par 
défaut, les touches de fonction sont toutes réinitialisées et l’indi- 
rection BDEEH est restituée. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1A1EH (464), 1B98H (664 et 6128). 


Étiquette : CWAIT. 


Description : Attend qu’un caractère soit entré au clavier, ou lit le 
dernier caractère du buffer de clavier (qui peut en contenir jusqu’à 
20) s’il n’est pas vide. En sortie, la retenue est mise et À contient 
le caractère. 


Notes : Le caractère n’est pas imprimé. 
Instruction : RST 8. 
Adresses d'exécution : 1A3CH (464), 1BBFH (664 et 6128). 


Étiquette : CSCRUT. 


Description : Lit un éventuel caractère au clavier ou dans le buffer 
du clavier. En sortie, c=1 si un caractère a été lu (il se trouve 
alors dans A), sinon c=0 et À est modifié. 


Notes : Cette routine est celle appelée répétitivement par la 
précédente. 


Instruction : RST 8. 
Adresses d'exécution : 1A42H (464), 1BC5H (664 et 6128). 
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Étiquette : CARINBUF. 


Description : Place le caractère entré dans A dans le buffer de 
clavier. 


Notes : Voir les deux routines précédentes. 
Instruction : RST 8. 
Adresses d'exécution : 1A77H (464), 1BFAH (664 et 6128). 


Étiquette : STRCOD. 


Description : Associe un code numérique (communiqué dans B) 
à une chaîne alphanumérique dont l’adresse est dans HL et la 
longueur dans C. 


Notes : La retenue est mise si tout va bien. Dans tous les cas le 
groupe 1 est modifié. Cette routine ne doit être exécutée qu'après 
l'allocation d’un tampon par STRTAMP (BB15H). 


Instruction : RST 8. 
Adresses d'exécution : 1ABDH (464), 1C46H (664 et 6128). 


Étiquette : CARINSTR. 

Description : Donne dans A un des caractères d’une chaîne d’ex- 
pansion positionnée par le vecteur précédent. En entrée, A con- 
tient le code de la chaîne et L le numéro du caractère à lire (à 
partir de zéro). 

Notes : La retenue est mise si tout va bien. DE est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1B2EH (464), 1CB3H (664 et 6128). 


Étiquette : STRTAMP. 

Description : Donne un tampon (place mémoire) au système pour 
y placer les chaînes d'expansion (voir BBOFH). En entrée, DE con- 
tient l’adresse du tampon et HL sa longueur. 

Notes : La retenue est mise si tout va bien. Dans tous les cas, le 
groupe 1 est modifié. 
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Instruction : RST 8. 
Adresses d'exécution : 1A7BH (464), 1C04H (664 et 6128). 


Étiquette : CWAIT2. 


Description : Exactement comme CWAÏT (BBO6H), mais ne tient 
compte ni du buffer de clavier ni des chaînes d’expansion. 


Notes : Le buffer de clavier n’est pas affecté par cette routine. 
Instruction : RST 8. 
Adresses d'exécution : 1B56H (464), 1CDBH (664 et 6128). 


Étiquette : CSCRUT2. 


Description : Comme CSCRUT (BBO9H), avec la même réserve que 
pour la précédente. 


Notes : Voir la précédente. 
Instruction : RST 8. 
Adresses d'exécution : 1B5CH (464), 1CE1H (664 et 6128). 


Étiquette : INKEY. 


Description : Teste si la touche dont le numéro est contenu dans 
A est pressée. Si ce n’est pas le cas, A vaut zéro en sortie et le 
flag z est mis, sinon A est non nul mais modifié. Dans les deux 
cas, C contient l’état des touches (SHIFT) et (CTRL), par ses bits 
7 (pour (CTRL)) et 5 (pour (SHIFT)), ces bits étant mis lorsque les 
touches correspondantes sont enfoncées. 


Notes : De toute façon, HL est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1CBDH (464), 1E45H (664 et 6128). 


Étiquette : CAPS£. 


Description : Donne l’état de la touche (CAPS LOCK) dans H et 
de (CTRL) (CAPS LOCK) dans H (sur 664 et 6128, sinon de la tou- 
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che (SHIFT)) sous forme de flags : FFH si elles sont enfoncées, 
0 sinon. 


Notes : Cet état peut être modifié sur 664 et 6128 par CAPS (BD3AH) 
et sur 464 par LD (B4E7H),HL. 

Instruction : RST 8. 

Adresses d'exécution : 1BB3H (464), 1D38H (664 et 6128). 


Étiquette : JOY. 

Description : Réalise la fonction BASIC JOY. En sortie, A et H con- 
tiennent JOY(0) et L contient JOY(1). 

Notes : F est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1C5CH (464), 1DE5H (664 et 6128). 


BB27H 
Étiquette : KEY. 


Description : Associe un code fourni dans B à une touche dont le 
numéro est fourni dans À, dont la pression sans (SHIFT) et sans 
(CTRL) donnera la chaîne correspondant au code, réalisant ainsi 
une partie de la fonction BASIC KEY DEF. 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 1D52H (464), 1ED8H (664 et 6128). 


BB2AH 
Étiquette : KEY£. 
Description : Donne dans A le code de la chaîne qui sera produite 


par la pression sans (CTRL) ni (SHIFT) de la touche dont le numéro 
a été communiqué en entrée dans A. 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 1D3EH (464), 1EC4H (664 et 6128). 


Étiquette : SKEY. 
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Description : Comme KEY (BB27H), mais pour la pression de la tou- 
che avec (SHIFT) et sans (CTRL). 


Instruction : RST 8. 
Adresses d'exécution : 1D57H (464), 1EDDH (664 et 6128). 


Étiquette : SKEY?. 

Description : Comme KEY? (BB2AH), mais pour la pression de la 
touche avec (SHIFT) et sans (CTRL). 

Instruction : RST 8. 

Adresses d'exécution : 1D43H (464), 1EC9H (664 et 6128). 


BB33H 
Étiquette : CKEY. 


Description : Comme KEY (BB27H), mais pour la pression de la tou- 
che avec (CTRL). 


Instruction : RST 8. 
Adresses d'exécution : 1D5CH (464), 1EE2H (664 et 6128). 


Étiquette : CKEY?. 

Description : Comme KEY? (BB2AH), mais pour la pression de la 
touche avec (CTRL). 

Instruction : RST 8. 

Adresses d'exécution : 1D48H (464), 1ECEH (664 et 6128). 


Étiquette : REPEAT. 

Description : Donne à la touche dont le numéro est fourni dans 
A la possibilité de se répéter (si B vaut FFH en entrée), ou au con- 
traire l'impossibilité de se répéter (si B vaut O). 

Notes : Le groupe 1 est modifié, sauf DE. 

Instruction : RST 8. 

Adresses d'exécution : 1CABH (464), 1E34H (664 et 6128). 
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BB3CH 
Étiquette : REPEATZ. 


Description : Examine si la touche dont le numéro est fourni dans 
À peut ou non se répéter. Si oui, z=0, sinon z=1. 


Notes : AF et HL sont modifiés. La retenue est mise. 
Instruction : RST 8. 
Adresses d'exécution : 1CA6H (464), 1E2FH (664 et 6128). 


Étiquette : SPEEDK. 


Description : Réalise la fonction BASIC SPEED KEY x,y. En entrée, 
x est placé dans H, et y dans L. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1C6DH (464), 1DF6H (664 et 6128). 


Étiquette : SPEEDK?. 

Description : Lit dans H et L les deux paramètres de la routine 
précédente. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1C69H (464), 1DF2H (664 et 6128). 


Étiquette : POSBRK. 

Description : Associe la routine dont l'adresse est contenue dans 
DE et dont l’octet de sélection des ROMS (voir RST 18) se trouve 
dans C, au BREAK. 


Instruction : RST 8. 
Adresses d'exécution : 1C71H (464), 1DFAH (664 et 6128). 


Étiquette : NOBRK. 
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Description : Désarme le BREAK. 

Notes : Inverse de la précédente. AF et HL sont modifiés. 
Instruction : RST 8. 

Adresses d'exécution : 1C82H (464), 1EOBH (664 et 6128). 


Étiquette : BREAK. 

Description : Provoque un BREAK. 

Notes : Même si le BREAK n'est pas actif, AF et HL sont modifiés. 
Instruction : RST 8. 

Adresses d'exécution : 1C90H (464), 1E19H (664 et 6128). 


M LES VECTEURS DE TEXTE 


Étiquette : TINIT. 


Description : Initialisation du texte. Outre un RESET (voir la sui- 
vante), l'encre du fond est remise à O, celle d'écriture à 1 ; la fené- 
tre couvre tout l'écran ; le mode opaque est restitué ; les carac- 
tères graphiques interdits, ceux de texte autorisés ; tous les carac- 
tères reprennent leurs valeurs par défaut et les fenêtres sont tou- 
tes réinitialisées sur la fenêtre courante. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1078H (464), 1070H (664), 1074H 6128). 


Étiquette : TRESET. 


Description : RESET du texte. Les cinq indirections de texte (BDCDH 
à BDD9H) sont réinitialisées. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1088H (464), 1080H (664), 1084H (6128). 
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Étiquette : CANWR. 

Description : Autorise l'affichage des caractères. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1451H (464), 1455H (664), 1459H (6128). 


Étiquette : NOWR. 

Description : Interdit l'affichage des caractères. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 144BH (464), 144EH (664), 1452H (6128). 


CTINT 
Étiquette : PRINT. 


Description : Affichage d'un caractère dont le code est contenu dans 
A ; ou, si ce code est inférieur à 1FH, exécution de la commande 
correspondante. 


Notes : Pour les codes de commandes, voir COMTAB (BBB1H). 
Pour les caractères usuels, cette routine est meilleure que la sui- 
vante, car elle conserve les registres. 


Instruction : RST 8. 
Adresses d'exécution : 1400H (464), 13FAH (664), 13FEH (6128). 


Étiquette : PRINT2. 


Description : Comme la précédente, mais si le code est inférieur 
à 1FH, le caractère graphique correspondant est imprimé. 


Notes : Le groupe 1 est modifié, d’où l’avantage de PRINT pour 
les caractères usuels. 


Instruction : RST 8. 
Adresses d'exécution : 1334H (464), 1331H (664), 1335H (6128). 
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Étiquette : READ. 

Description : Lit sur l'écran un caractère à la position courante du 
curseur. Si un caractère est effectivement reconnu, il est placé 
dans A et la retenue est mise. Sinon A et la retenue valent zéro. 

Instruction : RST 8. 

Adresses d'exécution : 13ABH (464), 13A8H (664), 13ACH (6128). 


Étiquette : CARGR. 

Description : Interdit si À vaut zéro, ou autorise, dans le cas con- 
traire, l'écriture des caractères graphiques correspondant aux 
codes de commandes. 

Instruction : RST 8. 

Adresses d'exécution : 13A7H (464), 13A4H (664), 13A8H (6128). 


Étiquette : WINDO. 

Description : Exécute l'instruction BASIC WINDOW #0,u,v,w,x. Les 
numéros des lignes limites sont placés dans Let E, ceux des colon- 
nes dans H et D. L'ordre est sans importance. Les paramètres sont 
ajustés pour tenir à l'écran. Le curseur est placé en haut et à gau- 
che de la fenêtre si son affichage est autorisé (voir de BB7BH à 
BB84H). 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 120CH (464), 1204H (664), 1208H (6128). 


Étiquette : WINDOZ. 

Description : Lit les paramètres de la routine précédente. HL con- 
tient les coordonnées du coin supérieur gauche de la fenêtre, et 
DE du coin inférieur droit. La retenue est nulle si la fenêtre cou- 
vre tout l'écran, et À vaut FFH, sinon la retenue est mise et A 
est modifié. 
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Instruction : RST 8. 
Adresses d'exécution : 1256H (464), 124EH (664), 1252H (6128). 


Étiquette : CLSO. 
Description : Efface la fenêtre courante, exécutant ainsi la fonction 
BASIC CLS#O. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1540H (464), 154BH (664), 154FH (6128). 


Étiquette : HPOS. 


Description : Déplace le curseur dans la colonne dont le numéro 
est contenu dans A. 


Notes : AF et HL sont modifiés. La position du curseur est considé- 
rée par rapport à la fenêtre courante. 


Instruction : RST 8. 
Adresses d'exécution : 115EH (464), 1156H (664), 115AH (6128). 


BB72H 

Étiquette : VPOS. 

Description : Comme la précédente, mais sur la ligne. 

Notes : Voir la précédente. 

Instruction : RST 8. 

Adresses d'exécution : 1169H (464), 1161H (664), 1165H (6128). 


BB75H 


Étiquette : LOCATE. 


Description : Exécute l'instruction BASIC LOCATE x,y. En entrée, 
x se trouve dans L et y dans H. 


Notes : Voir HPOS (BB6FH). 
Instruction : RST 8. 
Adresses d'exécution : 1174H (464), 116CH (664), 1170H (6128). 
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CLYLI. 
Étiquette : LOCATEZ. 


Description : Lit les paramètres de la précédente dans HL et place 
dans A le compteur de défilement (ROLL COUNT). 


Instruction : RST 8. 
Adresses d'exécution : 1180H (464), 1178H (664), 117CH (6128). 


BB7BH 
Étiquette : TCRON. 


Description : Autorise l'affichage du curseur pour l'utilisateur. 


Notes : AF est modifié. Le curseur est placé à l'écran si l'affichage 
pour le système est autorisé (voir SYSCRON et SYSCROF ci-après 
en BB81H et BB84H). 


Instruction : RST 8. 
Adresses d'exécution : 1289H (464), 1282H (664), 1286H (6128). 


Étiquette : TCROF. 

Description : Interdit l'affichage du curseur pour l'utilisateur. 
Notes : AF est modifié. Le curseur est retiré de l’écran. 
Instruction : RST 8. 

Adresses d'exécution : 129AH (464), 1293H (664), 1297H (6128). 


Étiquette : SYSCRON. 
Description : Autorise l'affichage du curseur par le système. 


Notes : Le curseur est placé à l'écran si son affichage pour l’utilisa- 
teur est permis (voir les deux précédentes). 


Instruction : RST 8. 
Adresses d'exécution : 1279H (464), 1272H (664), 1276H (6128). 


Étiquette : SYSCROF. 
Description : Interdit l'affichage du curseur pour le système. 
Notes : Le curseur est retiré de l'écran. 
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Instruction : RST 8. 
Adresses d'exécution : 1281H (464), 127AH (664), 127EH (6128). 


Étiquette : INWIND®Z. 

Description : Examine si la position de curseur fournie dans HL 
(comme pour LOCATE en BB75H) se trouve dans la fenêtre cou- 
rante (la retenue est alors mise et B modifié). Si ce n’est pas le 
cas, HL contient l'endroit où le curseur serait placé et, si la fené- 
tre doit défiler dans le sens normal, B vaut FFH ; dans le sens con- 
traire, B vaut O. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 11CEH (464), 11C6H (664), 11CAH (6128). 


Étiquette : CRVIS. 

Description : Rend le curseur visible. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1268H (464), 1261H (664), 1265H (6128). 


Étiquette : CRINV. 

Description : Rend le curseur invisible. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1268H (464), 1261H (664), 1265H (6128). 


Étiquette : PEN. 
Description : Positionne sur la valeur d'encre contenue dans A l’en- 
cre d'écriture des caractères (PEN). 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 12A9H (464), 12A2H (664), 12A6H (6128). 
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BB93H 

Étiquette : PENZ. 

Description : Donne dans A l'encre d'écriture des caractères (PEN). 
Instruction : RST 8. 

Adresses d'exécution : 12BDH (464), 12B6H (664), 12BAH (6128). 


Étiquette : PAPER. 


Description : Positionne sur la valeur d'encre contenue dans A l’en- 
cre du fond (PAPER). 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 12AËEH (464), 12A7H (664), 12ABH (6128). 


Étiquette : PAPERZ. 
Description : Donne dans A l'encre d'écriture du fond (PAPER). 
Instruction : RST 8. 
Adresses d'exécution : 12C3H (464), 12BCH (664), 12COH (6128). 


BB9JCH 
Étiquette : INVERS. 


Description : Inverse l'encre du fond et celle des caractères (PEN 
et PAPER). 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 12C9H (464), 12C2H (664), 12C6H (6128). 


BB9FH 
Étiquette : OPAQ. 
Description : Se place en mode opaque si A vaut O en entrée (le 


fond est alors affiché lors des écritures), en mode transparent 
sinon. 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
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Adresses d'exécution : 137AH (464), 1377H (664), 137BH (6128). 


Étiquette : OPAQY. 

Description : Donne en sortie dans A le paramètre de la routine 
précédente. 

Notes : DE, AF et HL sont modifiés. 

Instruction : RST 8. 

Adresses d'exécution : 1387H (464), 1384H (664), 1388H (6128). 


Étiquette : MATADR. 


Description : Donne dans HL l'adresse de la matrice du caractère 
dont le code ASCII figurait en entrée dans A. Si la retenue est 
mise, la matrice se trouve en RAM (matrice redéfinissable), sinon 
la matrice est en ROM (caractère standard). 


Notes : De toute façon, AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 12D3H (464), 12D0H (664), 12D4H (6128). 


Étiquette : DEFSYMB. 

Description : Redéfinition d'une matrice de caractère. En entrée, 
A contient le numéro du caractère à modifier et HL l’adresse de 
la nouvelle matrice de ce caractère. En sortie, la retenue est mise 
si tout va bien ; sinon, c’est que le caractère n’est pas redéfinis- 
sable (voir la routine suivante). 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 12F1H (464), 12EEH (664), 12F2H (6128). 


Étiquette : POSMTAB. 


Description : Positionnement de la table des caractères redéfinis- 
sables. En entrée, E contient le premier caractère redéfinissable 
souhaité, si D est nul. Dans ce cas, toutes les matrices de carac- 
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tères de E à 255 sont recopiées en RAM à l'adresse fournie dans 
HL (attention à la place : jusqu’à 2K !). Si D n’est pas nul en entrée, 
la table est supprimée, les caractères redeviennent standard. Dans 
tous les cas, en sortie, AF et HL sont positionnés comme pour 
la routine suivante avec les valeurs relatives à l’ancienne table ; 
BC est modifié et DE contient la valeur d'entrée de HL. 
Notes : Si une table redéfinie existait déjà, les caractères communs 
aux deux tables sont recopiés sans modification : il n’y a donc 
pas de réinitialisation des caractères dont le code est supérieur à E. 
Instruction : RST 8. 


Adresses d'exécution : 12FDH (464), 12FAH (664), 12FEH (6128). 


BBAEH 
Étiquette : GETMTAB. 


Description : Donne en sortie dans HL l'adresse de la table des 
caractères redéfinissables et dans A le numéro du premier de ces 
caractères, si la retenue est mise. Si elle ne l’est pas, c'est qu’une 
telle table n'existe pas (aucun caractère redéfinissable). 

Instruction : RST 8. 


Adresses d'exécution : 132AH (464), 1327H (664), 132BH (6128). 


Étiquette : COMTAB. 


Description : Donne dans HL l'adresse de la table des codes de 
commandes. Cette table contient 32 triplets d’octets correspon- 
dant aux 32 caractères de commande (0 à 1FH). Chaque triplet 
est constitué de l’adresse de la routine à exécuter lors de la ren- 
contre du code, précédée du nombre de paramètres à transmet- 
tre à cette routine (maximum 15) codé sur un octet. (Attention : 
sur 664 et 6128, le bit 7 de cet octet doit en plus être mis !) Les 
paramètres en question doivent avoir été mis dans le buffer (par 
CARINBUF en BBOCH, par exemple). Leur emplacement est trans- 
mis dans HL. 

Notes : Les codes de commandes peuvent être exécutés par PRINT 
(BB5AH). L'adresse de cette table permet de modifier les routi- 
nes exécutées. Les commandes initiales figurent dans votre manuel 
de BASIC. 


Instruction : RST 8. 
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Adresses d'exécution : 14CBH (464), 14D0H (664), 14D4H (6128). 


BBB4H 
Étiquette : WINDOW. 


Description : La fenêtre dont le numéro (1 à 7) est donné dans A 
devient la fenêtre courante. En sortie, À contient le numéro de 
l’ancienne fenêtre et HL est modifié. 


Notes : En fait le STREAM n° A est recopié dans le STREAM cour- 
rant. Un STREAM est l’ensemble des caractéristiques d’une fenêtre 
(voir liste des paramètres du système pour plus de précision). II 
y a 8 STREAMS en mémoire, correspondant aux 8 fenêtres, plus 
le STREAM courant. 


Instruction : RST 8. 
Adresses d’exécution : 10E8H (464), 10E0H (664), 10E4H (6128). 


Étiquette : SWSTREAM. 

Description : Échange des STREAMS dont les numéros figurent en 
éntrée dans B et C (voir la routine précédente, hotes). 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1107H (464), 10FFH (664), 1103H (6128). 


M LES VECTEURS GRAPHIQUES 


Les vecteurs suivants sont évidemment essentiels, puisqu'ils per- 
mettent de réaliser les nombreux graphiques qui sont si agréables sur 
Amstrad. Pour plus de détails sur leur utilisation, voyez le Chapitre 
6, avec les exemples. 


Étiquette : GINIT. 

Description : Initialisation des graphiques. Outre un RESET (voir la 
suivante), l'encre graphique est mise à 1, celle de fond graphi- 
que à 0; l'origine est remise à (0,0), la fenêtre graphique est 
réduite au vide. 
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Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 15BOH (464), 15A4H (664), 15A8H (6128). 


Étiquette : GRESET. 
Description : RESET des graphiques. 


Notes : Le groupe 1 est modifié. Les trois indirections graphiques 
(BDDCH à BDE2H) sont réinitialisées. 


Instruction : RST 8. 
Adresses d'exécution : 15DFH (464), 15D3H (664), 15D7H (6128). 


Étiquette : MOVE. 


Description : Réalise la fonction BASIC MOVE x, y. En entrée, x est 
dans DE et y dans HL. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 15F4H (464), 15FAH (664), 15FEH (6128). 


Étiquette : MOVER. 

Description : Réalise la fonction BASIC MOVER x,y. En entrée, x 
est dans DE et y dans HL. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 15F1H (464), 15F7H (664), 15FBH (6128). 


Étiquette : POS. 
Description : Donne les coordonnées (XPOS, YPOS) du curseur gra- 
phique dans DE et HL. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 15FCH (464), 1602H (664), 1606H (6128). 
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BBC9H 
Étiquette : ORIG. 


Description : Réalise la fonction BASIC ORIGIN x,y. En entrée, x 
est dans DE et y dans HL. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1604H (464), 160AH (664), 160EH (6128). 


10 
Étiquette : ORIG£. 


Description : Donne les coordonnées de l’origine graphique dans 
DE et HL. 


Instruction : RST 8. 
Adresses d'exécution : 1612H (464), 1618H (664), 161CH (6128). 


BBCFH 
Étiquette : WGRAVW. 


Description : Fixe les bords droit et gauche de la fenêtre graphi- 
que. En entrée, les coordonnées de ces bords sont données dans 
DE et HL. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1734H (464), 16A1H (664), 16A5H (6128). 


Étiquette : WGRAH. 


Description : Comme la précédente, mais avec les bords supérieur 
et inférieur. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1779H (464), 16E6H (664), 16EAH (6128). 


Étiquette : WGRAVZ. 
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Description : Donne dans DE et HL les bords droit et gauche de 
la fenêtre graphique. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 17A6H (464), 1713H (664), 1717H (6128). 


Étiquette : WGRAH£. 


Description : Comme la précédente, mais avec les bords supérieur 
et inférieur. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 17BCH (464), 1729H (664), 172DH (6128). 


Étiquettes : CLG. 


Description : Efface la fenêtre graphique, réalisant la fonction BASIC 
CLG. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 17C5H (464), 1732H (664), 1736H (6128). 


Étiquette : GPEN. 

Description : Fixe la couleur d'écriture graphique à la valeur donnée 
en entrée dans À, réalisant la fonction BASIC GRAPHICS PEN a. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 17F6H (464), 1763H (664), 1767H (6128). 


Étiquette : GPENZ. 
Description : Donne dans A le paramètre de la routine précédente. 
Instruction : RST 8. 
Adresses d'exécution : 1804H (464), 1771H (664), 1775H (6128). 
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Étiquette : GPAPER. 


Description : Fixe la couleur du fond graphique à la valeur don- 
née en entrée dans À, réalisant la fonction BASIC GRAPHICS 
PAPER a. 


Notes : À est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 17FDH (464), 176AH (664), 176EH (6128). 


(2:14 a | 

Étiquette : GPAPERZ. 

Description : Donne dans A le paramètre de la routine précédente. 
Instruction : RST 8. 

Adresses d'exécution : 180AH (464), 1776H (664), 177AH (6128). 


Étiquette : PLOT. 

Description : Réalise la fonction BASIC PLOT x,y. En entrée, x est 
dans DE et y dans HL. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1813H (464), 177FH (664), 1783H (6128). 


Étiquette : PLOTR. 
Description : Réalise la fonction BASIC PLOTR x, y. En entrée, x est 
dans DE et y dans HL. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1810H (464), 177CH (664), 1780H (6128). 


Étiquette : TEST. 


Description : Donne dans A la couleur du point de coordonnées 
absolues (x,y) (avec en entrée x dans DE et y dans HL), réalisant 
la fonction BASIC TEST (x, y). 
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Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1827H (464), 1793H (664), 1797H (6128). 


Étiquette : TESTR. 

Description : Comme la routine précédente, mais avec des coor- 
données relatives, réalisant la fonction BASIC TESTR (x,y). 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1824H (464), 1790H (664), 1794H (6128). 


Étiquette : DRAW. 


Description : Réalise la fonction BASIC DRAW x,y. En entrée, x est 
dans DE et y dans HL. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1839H (464), 17A5H (664), 17A9H (6128). 


Étiquette : DRAWR. 


Description : Réalise la fonction BASIC DRAWR x,y. En entrée, x 
est dans DE et y dans HL. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1836H (464), 17A2H (664), 17A6H (6128). 


BBFCH 
Étiquette : TAGWR. 
Description : Écrit le caractère dont le code se trouve dans A en 


entrée, à l'emplacement du curseur graphique, comme après un 
TAG en BASIC. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1945H (464), 193CH (664), 1940H (6128). 
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B LES VECTEURS DE L'ÉCRAN 


Étiquette : SINIT. 

Description : Initialisation du système écran. Outre un RESET (voir 
la suivante), la base écran est remise en CO00H, le mode à 1 avec 
les couleurs par défaut. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : AAOH (464), ABBH (664), ABFH (6128). 


Étiquette : SRESET. 

Description : Reset du système écran. Le mode forçage est restitué 
et les trois indirections d'écran (BDE5H à BDEBH) sont 
réinitialisées. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : AB1H (464), ACCH (664), ADOH (6128). 


Étiquette : OFFSET. 


Description : Positionne l’'OFFSET d'écran à la valeur contenue dans 
HL en entrée. Permet ainsi un défilement de l'écran. 

Notes : AF et HL sont modifiés. L'OFFSET est un nombre pair com- 
pris entre 0 et 7FFH qui correspond à l’octet supérieur d'un carac- 
tère qui devient le coin supérieur gauche de l'écran. Les carac- 
tères qui dépassent d’un côté réapparaissent de l’autre, mais sans 
oublier le décalage dû aux octets non utilisés. Ainsi, pour déca- 
ler l'écran d’une colonne vers la gauche, il faut augmenter l'OFF- 
SET de 2 ; pour le décaler d’une ligne vers le haut, de 808$. Mais ” 50H 
si l'OFFSET vaut 0 par exemple, pour décaler l’écran d’une ligne 
vers le bas il faut un OFFSET de 7BOH = 800H — 80H + 30H, ce 30H 
étant dû aux 30H octets inutilisés entre C7DOH et C7FFH. 

Instruction : RST 8. 


Adresses d’exécution : B3CH (464), B33H (664), B37H (6128). 
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Étiquette : SSTART. 


Description : Fixe l'adresse de départ en RAM de la mémoire écran, 
à partir de À, dont les bits 6 et 7 donnent les bits les plus signifi- 
catifs de cette adresse, d’où quatre possibilités : O, 4000H, 8000H, 
COO0H. 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : B45H (464), B38H (664), B3CH (6128). 


Étiquette : SSTART2. 

Description : Donne dans A le premier octet de l’adresse de la 
mémoire écran (voir la routine précédente), et dans HL l’OFF- 
SET (voir OFFSET en BCO5H). 

Instruction : RST 8. 


Adresses d'exécution : B50H(464), B52H (664), B56H (6128). 


Étiquette : MODE. 


Description : Fixe l'écran dans le mode contenu dans A en entrée 
(0, 1 ou 2). 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : ACAH (464), AE5H (664), AE9H (6128). 


Étiquette : MODEZ. 

Description : Donne dans A le mode écran actuel et positionne en 
conséquence la retenue et le zéro : Mode 2 : c=0, z=0 ; Mode 
1:c=0,z=1 ; Mode 0: c=1, z=0. 

Instruction : RST 8. 

Adresses d'exécution : AECH (464), BO8H (664), BOCH (6128). 
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Étiquette : CLS. 

Description : Efface l'écran tout entier. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : AF7H (464), B13H (664), B17H (6128). 


Étiquette : SLIMITS. 


Description : Donne les limites de l'écran : dans B la dernière 
colonne, dans C la dernière ligne, en fonction du mode. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : B57H (464), B59H (664), B5DH (6128). 


Étiquette : CARADR. 

Description : Donne dans HL l'adresse dans la mémoire écran d’un 
caractère situé à la position donnée dans HL en entrée (H colonne, 
L ligne). De plus, en sortie, B contient en fonction du mode actuel 
le nombre d’octets occupés par un caractère dans la mémoire 
écran. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : B64H (464), B66H (664), B6&AH (6128). 


Étiquette : PTADR. 

Description : Donne dans HL l’adresse dans la mémoire écran de 
l’octet où se trouve un point dont les coordonnées ont été four- 
nies en entrée dans DE et HL. En sortie C contient le masque cor- 
respondant au point, et B le nombre de points restant sur l’oc- 
tet, en fonction du mode. 

Notes : AF et DE sont modifiés. 

Instruction : RST 8. 

Adresses d'exécution : BA9H (464), BABH (664), BAFH (6128). 
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Étiquette : RBYTE. 


Description : Donne dans HL l’adresse en mémoire écran de l’oc- 
tet se trouvant à la droite sur l’écran de l’octet dont l’adresse en 
mémoire écran a été communiquée en entrée dans HL. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : BF9H (464), CO1H (664), CO5H (6128). 


Étiquette : LBYTE. 


Description : Comme la routine précédente, mais pour l’octet de 
gauche. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : CO5H (464), CODH (664), C11H (6128). 


Étiquette : NBYTE. 

Description : Comme RBYTE (BC20H), mais pour l’octet du dessous. 
Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : C13H (464), C1BH (664), C1FH (6128). 


Étiquette : PBYTE. 

Description : Comme RBYTE (BC20H), mais pour l’octet du dessus. 
Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : C2DH (464), C35H (664), C39H (6128). 


ee: 
Étiquette : INKCOD. 


Description : Fournit dans A le masque correspondant à l'encre dont 
le numéro a été communiqué en entrée. 
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Instruction : RST 8. 
Adresses d'exécution : C86H (464), C8AH (664), C8EH (6128). 


BC2FH 
Étiquette : INKDECOD. 


Description : Fait la conversion contraire de celle de la routine pré- 
cédente : le masque est en entrée, l'encre en sortie. Seule compte 
en fait l'encre du point le plus à gauche dans l’octet. 


Instruction : RST 8. 
Adresses d'exécution : CAOH (464), CA3H (664), CAZH (6128). 


Étiquette : INK. 

Description : Exécute l'instruction BASIC INK i, u, v. En entrée, i 
est dans À, u et v dans B et C. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : CECH (464), CEEH (664), CF2H (6128). 


Étiquette : INK. 

Description : Donne dans B et C les couleurs associées à l'encre 
dont le numéro est fourni en entrée dans A. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : D14H (464), D16H (664), DIAH (6128). 


Étiquette : BORDER. 


Description : Réalise la fonction BASIC BORDER u, v. En entrée, 
u est dans B et v dans C. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : CF1H (464), CF3H (664), CF7H (6128). 
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BC3BH 
Étiquette : BORDERZ. 


Description : Donne dans B et C les paramètres de la routine 
précédente. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 6. 
Adresses d'exécution : D19H (464), D1BH (664), D1FH (6128). 


BC3EH 
Étiquette : SPINK. 


Description : Réalise la fonction BASIC SPEED INK u, v. En entrée, 
u est dans H et v dans L. 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : CE4H (464), CE6H (664), CEAH (6128). 


BCH1H 
Étiquette : SPDINKZ. 


Description : Donne dans H et L les paramètres de la routine 
précédente. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : CE8H (464), CEAH (664), CEEH (6128). 


Étiquette : FILLBOX. 


Description : Remplit un rectangle, considéré comme un ensem- 
ble de caractères (comme les fenêtres), avec l’octet donné dans 
À. En entrée, H et D contiennent les colonnes gauche et droite 
du rectangle, et E et L les lignes supérieure et inférieure. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : DB3H (464), DB5H (664), DB9H (6128). 
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Étiquette : FILLBOX2. 


Description : Comme la routine précédente, mais le rectangle est 
considéré comme un ensemble d’octets dans la mémoire écran. 
HL contient l’octet du coin supérieur gauche, D le nombre d’oc- 
tets par ligne, et E le nombre de lignes. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : DB7H (464), DB9H (664), DBDH (6128). 


BC4AH 
Étiquette : CARINVER. 


Description : Inverse deux couleurs (dont les masques sont don- 
nés dans B et C) dans le caractère dont la position est donnée 
dans HL, (H colonne, L ligne). 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : DDFH (464), DETH (664), DESH (6128). 


Étiquette : SROLL. 

Description : Décale l’écran d’une ligne vers le haut si B diffère 
de zéro, vers le bas sinon. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : DFAH (464), DFCH (664), EOOH (6128). 


2 


Etiquette : WROLL. 


Description : Comme la routine précédente, mais pour un rectan- 
gle de l’écran seulement. Ce rectangle est défini par HL et DE 
comme dans FILLBOX (BC44H). La partie vidée est remplie avec 
l’octet contenu dans A en entrée. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : E3EH (464), E40H (664), E44H (6128). 
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BC53H 
Étiquette : CARMAT. 


Description : Convertit la matrice de caractère dont l'adresse est 
fournie dans HL en une suite de masques situés à l’endroit pointé 
par DE en entrée. 


Notes : Le groupe 1 est modifié. L'adresse de la matrice de carac- 
tère peut être obtenue par la routine MATADR (BBA5H). 


Instruction : RST 8. 
Adresses d'exécution : EF3H (464), EF5H (664), EF9H (6128). 


Étiquette : MATCAR. 


Description : Conversion inverse de celle de la routine précédente, 
mais à partir d’un caractère de l'écran dont la position est four- 
nie dans HL (H colonne, L ligne) et pour l’encre dont le masque 
est fourni dans A. La matrice sera construite à l’adresse fournie 
dans DE. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : F49H (464), F26H (664), F2AH (6128). 


Étiquette : GMOD. 


Description : Fixe le mode graphique (dernier paramètre de DRAW 
sur les 664 et 6128) fourni dans A : O=forçage ; 1=XOR ; 
2=AND ; 3=OR. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : C49H (464), C51H (664), C55H (6128). 


BC5CH 
Étiquette : POINT. 


Description : Place un point dont le masque est donné dans C et 
le masque d'encre dans B à l'écran, à l’adresse fournie dans HL. 


SUE 


Notes : AF est modifié. Attention, contrairement à PLOT (BBEAHI), 
cette routine ne tient pas compte du mode graphique défini par 
la routine précédente. 

Instruction : RST 8. 


Adresses d'exécution : C6BH (464), C70H (664), C74H (6128). 


Étiquette : HORIZ. 

Description : Trace une ligne horizontale dans l'encre dont le mas- 
que est fourni dans À, entre les points d’ordonnée fournie dans 
HL et d’abscisses fournies dans DE (départ) et BC (arrivée). 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : FC4H (464), F8FH (664), F93H (6128). 


Étiquette : VERTIC. 


Description : Comme la routine précédente avec une verticale. 
L'abscisse des extrémités est fournie dans HL, l’ordonnée de 
départ dans DE, celle d’arrivée dans BC. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 102FH (464), F97H (664), F9BH (6128). 


M LES VECTEURS CASSETTE/DISQUETTE 


Les vecteurs suivants concernent le lecteur de cassette. Mais sur 
les 664, 6128 ou sur le 464 avec drive, si l’on est en mode DISC les 
vecteurs BC77H à BC9BH marqués d’un astérisque (*) concernent 
le lecteur de disquette. Dans ce cas, ils se reportent par un RST 18 
à l'adresse AB88BH, qui repasse le contrôle du DOS aux adresses indi- 
quées dans le champ adresses d'exécution. Dans ce cas toujours, le 
RST 18 modifie IY. On ne l’a pas reprécisé chaque fois. 

Pour ce qui est du passage du mode disque au mode cassette, il 
faut utiliser les instructions du DOS (comme DISC, etc.), dont les adres- 
ses peuvent être obtenues par FINDRSX (BCD4H). 
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BC65H 
Étiquette : KINIT. 


Description : Initialisation du MOS. Tous les fichiers sont abandon- 
nés, les messages sont autorisés, puis l’on passe à la routine sui- 
vante avec les valeurs par défaut A=19H et HL=14DH. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 2370H (464), 24BCH (664 et 6128). 


Étiquette : KSPEED. 


Description : Fixe la vitesse d'écriture sur cassette : en entrée, HL 
contient la moitié de la longueur d’un bit O, et A la compensa- 
tion à faire. 


Notes : AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 237FH (464), 24CEH (664 et 6128). 


Étiquette : KMESSG. 

Description : Autorise (si À vaut O en entrée) ou interdit (dans le 
cas contraire) l'affichage des messages du MOS. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 238EH (464), 24E1H (664 et 6128). 


Étiquette : MOTORON. 

Description : Met le moteur du magnétophone en marche et donne 
dans A son état précédent (0 = arrêté ; 10H =en marche). La rete- 
nue est mise, sauf si on a appuyé sur (ESC) (mais le moteur n'est 
pas arrêté). 

Instruction : RST 8. 

Adresses d'exécution : 2A4BH (464), 2BBBH (664 et 6128). 
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Étiquette : MOTOROF. 

Description : Arrêt du moteur et comme la routine précédente en 
sortie. 

Instruction : RST 8. 

Adresses d'exécution : 2A4FH (464), 2BBFH (664 et 6128). 


Étiquette : MOTOR. 

Description : Replace le moteur dans son état précédent, commu- 
niqué en entrée dans À. En sortie, comme les deux précédentes. 

Instruction : RST 8. 

Adresses d'exécution : 2A51H (464), 2BC1H (664 et 6128). 


Étiquette : OPEN. 


Description : Ouvre un fichier en lecture. En entrée, HL contient 
l'adresse de son nom et B sa longueur, et DE contient l'adresse 
du tampon de 2K nécessaire. En sortie, si tout va bien la retenue 
est mise, À contient le type du fichier (bit O mis = protégé ; bits 
1 et 2 : 00= BASIC, 01 = Binaire, 10=image écran, 11 = ASCII ; bit 
4 mis pour les ASCII ; autres nuls), BC sa longueur, DE l'adresse 
où les données doivent être écrites, et HL l'adresse de l'en-tête, 
qui est placé au début de chaque bloc ou enregistrement. Si quel- 
que chose ne va pas, la retenue n’est pas mise et le groupe 1 
est modifié. Le flag z indique alors le problème : s’il est mis, on 
a appuyé sur (ESC) ; sinon, c’est que le fichier était déjà ouvert, 
ou le système occupé. 

Notes : Dans tous les cas IX est modifié. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 


Adresses d’exécution : MOS : 2392H (464), 24E5H (664 et 6128) ; 
DOS : CEAFH. 


Étiquette : CLOSE. 


Description : Ferme le fichier après la fin de la lecture. La retenue 
est mise si tout va bien. 
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Notes : Le groupe 1 est modifié. 
Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 


Adresses d'exécution : MOS : 23FCH (464), 2550H (664 et 6128) : 
DOS : D1B6H. 


BC7DH * 

Étiquette : CLOSE!. 

Description : Arrête la lecture et ferme le fichier. 
Notes : Le groupe 1 est modifié. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 


Adresses d'exécution : MOS : 2401H (464), 2557H (664 et 6128) ; 
DOS : DIBCH. 


Étiquette : KINCAR. 

Description : Lit un octet dans le fichier et le place dans A. La rete- 
nue est mise si tout va bien. Sinon, A est modifié et le flag z mis 
indique la pression de (ESC), non mis indique qu’on est à la fin 
du fichier. 

Notes : IX est aussi modifié. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 

Adresses d'exécution : MOS : 2435H (464), 25A0H (664 et 6128) : 
DOS : CF64H. 


IR 1e 
Étiquette : KINFICH. 
Description : Lit un fichier et le place en mémoire à l'adresse four- 


nie dans HL. Si tout va bien, la retenue est mise et HL contient 
le point d'entrée du fichier, sinon voir la routine précédente. 


Notes : Le groupe 1 et IX sont modifiés. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 

Adresses d'exécution : MOS : 24ABH (464), 2618H (664 et 6128) ; 
DOS : CFF5H. 


Étiquette : KRET. 
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Description : Effectue l'inverse de KINCAR (BC80H) en replaçant 
le caractère lu dans le tampon. 


Instruction : RST 8 (MOS) : RST 18 en A88BH (DOS). 


Adresses d'exécution : MOS : 249AH (464), 2607H (664 et 6128) ; 
DOS : D069H. 


Étiquette : EOF. 

Description : Regarde si la fin du fichier est atteinte. Sinon, la rete- 
nue est mise. Si elle ne l’est pas, on a atteint la fin du fichier si 
z=0, on a appuyé sur (ESC) si z=1. 

Notes : AF et IX sont modifiés. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 


Adresses d'exécution : MOS : 2496H (464), 2603H (664 et 6128) ; 
DOS : D065H. 


Étiquette : OPENOUT. 


Description : Ouvre un fichier en sortie. Les paramètres d'entrée 
et les états d'erreurs sont les mêmes que pour OPEN (BC77H). 
En sortie, si tout va bien (retenue mise) HL contient l’adresse du 
tampon. 


Notes : Dans tous les cas, le groupe 1 et IX sont modifiés. 
Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 


Adresses d'exécution : MOS : 23ABH (464), 24FEH (664 et 6128) ; 
DOS : CF37H. 


Étiquette : CLOSOUT. 

Description : Comme CLOSE, mais pour le fichier de sortie. 
Notes : Le groupe 1 et IX sont modifiés. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 


Adresses d'exécution : MOS : 2415H (464), 257FH (664 et 6128) ; 
DOS : D1D8H. 
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Étiquette : CLOSOUT!. 

Description : Arrête l'écriture et ferme le fichier. 
Notes : Le groupe 1 est modifié. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 


Adresses d'exécution : MOS : 242EH (464), 2599H (664 et 6128) ; 
DOS : D1C2H. 


Étiquette : KOUTCAR. 

Description :Écrit sur le fichier le caractère fourni dans A. En sor- 
tie, la retenue est mise si tout va bien, sinon c’est que l’on a 
appuyé sur (ESC) (2=1) ou que le fichier n’était pas ouvert. 

Notes : AF et IX sont modifiés. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 

Adresses d'exécution : MOS : 245BH (464), 25C6H (664 et 6128) : 
DOS : DO8FH. 


Étiquette : KOUTFICH. 

Description : Écrit dans le fichier en sortie une partie de la mémoire 
dont l’adresse est fournie dans HL, la longueur dans DE, le point 
d'entrée dans BC et le type dans A. Pour les erreurs, comme la 
routine précédente. 

Notes : AF et IX sont modifiés. Cette routine ne peut être combi- 
née avec la précédente. 

Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 

Adresses d'exécution : MOS : 24EAH (464), 2653H (664 et 6128) ; 
DOS : DOD8H. 


Étiquette : CAT. 

Description : Donne le catalogue de la cassette ou de la disquette, 
comme la fonction BASIC CAT. En entrée, DE contient l’adresse 
du tampon de 2K nécessaire. Pour les erreurs, voir OPENOUT 
(BC8CH). 
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Notes : Le groupe 1 et IX sont modifiés. 
Instruction : RST 8 (MOS) ; RST 18 en A88BH (DOS). 


Adresses d'exécution : MOS : 2528H (464) ; 2692H (664 et 6128) ; 
DOS : D513H. 


BCIEH 
Étiquette : KWRITE. 


Description : Écrit un bloc de données dont l’adresse est fournie 
dans HL et la longueur dans DE sur cassette. A contient l’octet 
de synchronisation nécessaire. En sortie, si tout va bien la rete- 
nue est mise, sinon le code de l’erreur produite est placé dans A. 


Notes : Le groupe 1 et IX sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 283FH (464), 29AFH (664 et 6128). 


Étiquette : KREAD. 


Description : Comme la précédente, mais en lisant. Les paramè- 
tres d'entrée sont les mêmes. 


Notes : Le groupe 1 et IX sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 2836H (464), 29A6H (664 et 6128). 


Étiquette : CHECK. 


Description : Compare la mémoire dont l’adresse est donnée dans 
HL et la longueur dans DE avec le contenu du fichier en lecture. 
La retenue est mise s’il y a similitude, sinon A contient le code 
de l'erreur. 


Notes : Le groupe 1 et IX sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 2851H (464), 29C1H (664 et 6128). 
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B LES VECTEURS SONORES 


Les vecteurs suivants gèrent les sons. Dans ce domaine, vous savez 
que les possibilités des Amstrad sont très étendues, grâce à leur PSG 
(générateur de sons programmable). Néanmoins, la programmation 
en langage machine est ici très proche du BASIC ; les vecteurs sui- 
vants y sont en effet très adaptés, et les différences avec les fonctions 
BASIC sonores sont généralement très faibles. C’est la raison pour 
laquelle la plupart de ces vecteurs portent le nom de fonctions BASIC. 
Pour les détails, on se reportera donc au manuel d'utilisation. Préci- 
sons pour finir que la routine OUTPSG (BD34H) permet de program- 
mer directement le PSG : avis aux amateurs ! 


Étiquette : SDRESET. 

Description : RESET des sons. Tous les sons de tous les canaux sont 
éliminés, les files d'attente vidées. Mais les enveloppes sont 
préservées. 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 1E68H (464), 1FE9H (664 et 6128). 


Étiquette : SOUND. 

Description : Exécute la fonction BASIC SOUND. En entrée, HL con- 
tient l'adresse de la table des paramètres de cette fonction, dans 
l’ordre suivant : état du canal (1 octet), numéro d’enveloppe de 
volume (1 octet), numéro d’enveloppe de ton (1 octet), période 
(2 octets), période de bruit (1 octet), volume (1 octet), durée (2 
octets), soit 9 octets en tout. En sortie, si tout va bien la retenue 
est mise et HL modifié, sinon HL est conservé (plus de place dans 
les queues sonores). 

Notes : Dans tous les cas, AF, BC, DE et IX sont modifiés. D'autre 
part, les paramètres doivent se trouver dans la RAM médiane, 
sinon le programme (qui est en ROM) ne peut les lire. 

Instruction : RST 8. 


Adresses d'exécution : 1F9FH (464), 2114H (664 et 6128). 
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Étiquette : SQ. 

Description : Donne (dans A) l’état du canal sonore dont le numéro 
est fourni dans À, réalisant la fonction BASIC SQ(a). 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 206CH (464), 21CEH (664 et 6128). 


diet 
Étiquette : ONSQ. 
Description : Arme une interruption dont l'adresse est fournie dans 
HL pour qu’elle se produise dès que la queue sonore dont le 


numéro a été fourni dans A contiendra une place, réalisant en 
quelque sorte la fonction BASIC ON SQ(a) GOSUB... 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 2089H (464), 21EBH' (664 et 6128). 


Étiquette : RELEASE. 


Description : Réalise la fonction BASIC RELEASE ; le paramètre doit 
être fourni dans A. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 204AH (464), 21ACH (664 et 6128). 


Étiquette : SDHALT. 


Description : Suspension des sons sur tous les canaux. En sortie, 
si un son était en attente, la retenue est mise et BC modifié. 


Notes : Dans tous les cas, AF et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 1ECBH (464), 2050H (664 et 6128). 
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Étiquette : SDRST. 

Description : Réactive les sons suspendus par la routine précédente. 
Notes : AF, BC, DE et IX sont modifiés. 

Instruction : RST 8. 

Adresses d'exécution : 1EE6H (464), 206BH (664 et 6128). 


Étiquette : ENV. 

Description : Définit l'enveloppe de volume dont le numéro est 
fourni dans A, réalisant la fonction BASIC ENV. En entrée, HL 
contient l'adresse des paramètres (16 au total). En sortie, si tout 
va bien la retenue est mise, BC vaut O0, HL a augmenté de 16, 
A est modifié. Sinon, c’est que le numéro n'était pas valable (non 
compris entre 1 et 15) et ces registres sont conservés. 

Notes : Dans tous les cas, F et DE sont modifiés. Au sujet de l’em- 
placement des paramètres, voyez la note pour SOUND (BCAAH). 

Instruction : RST 8. 

Adresses d'exécution : 2338H (464), 2495H (664 et 6128). 


Étiquette : ENT. 

Description : Comme la routine précédente, avec les enveloppes 
de ton. 

Instruction : RST 8. 

Adresses d'exécution : 233DH (464), 249AH (664 et 6128). 


Étiquette : ENV?. 

Description : Donne dans HL l'adresse des paramètres de l'enve- 
loppe de volume dont le numéro a été fourni dans A, sauf si ce 
numéro n’est pas valable (dans ce cas, la retenue est mise et F 
et HL sont seuls modifiés). Si tout va bien, la retenue est mise, 
AF est modifié et BC vaut 10H (longueur d’une enveloppe). 

Instruction : RST 8. 

Adresses d'exécution : 2349H (464), 24A6H (664 et 6128). 
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Étiquette : ENTZ. 

Description : Comme la routine précédente, avec les enveloppes 
de ton. 

Instruction : RST 8. 

Adresses d'exécution : 234EH (464), 24ABH (664 et 6128). 


M AUTRES VECTEURS DU NOYAU 


Pour tout ce qui est afférent, dans cette partie, aux événements et 
interruptions, on se référera avec profit au Chapitre 3. 


Étiquette : RESET. 


Description : Reset du système. En sortie, B contient l'adresse de 
sélection d’une ROM éventuelle, C l’octet de sélection et DE le 
point d'entrée de cette ROM. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 5CH (464, 664 et 6128). 


Her 
Étiquette : ROMSINIT. 


Description : Initialise toutes les ROM externes. DE et HL contien- 
nent en entrée les adresses des premiers et derniers octets des 
ROM ; en sortie, ils contiennent les nouvelles valeurs de ces 
adresses. 


Notes : AF et BC sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 329H (464), 326H (664 et 6128). 


Étiquette : ROMINIT. 


Description : Initialise une ROM externe dont l’octet de sélection 
est fourni dans C. DE et HL comme pour la précédente. 
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Notes : AF et B sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 332H (464), 330H (664 et 6128). 


Étiquette : INTRSX. 


Description : Initialise une ou plusieurs RSX (extension résidente 
du système). En entrée, HL contient l’adresse d’une table de 4 
octets libre, et BC l'adresse de la table contenant les adresses des 
noms de commandes (voir le Chapitre 4). 


Notes : DE est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 2A1H (464), 2A0H (664 et 6128). 


Étiquette : FINDRSX. 


Description : Recherche d’une RSX dont l'adresse du nom a été 
fournie dans HL. En sortie, la retenue est mise si la RSX existe, 
et dans ce cas C contient l’octet de sélection des ROM et HL 
l'adresse de la routine. 


Notes : AF, BC et DE sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 2B2H (464), 2B1H (664 et 6128). 


Étiquette : CRTEVIN. 


Description : Initialise un événement lié aux interruptions du CRT 
(contrôleur vidéo). En entrée, HL contient l'adresse du bloc d’évé- 
nement (voir Chapitre 3), B sa classe, C l’octet de sélection des 
ROM et DE l'adresse de la routine à exécuter. 


Notes : AF, DE et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 163H (464, 664 et 6128). 


Étiquette : CRTEV. 
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Description : Repositionne un événement du type précédent (dont 
l’adresse du bloc est fournie dans HL), annulant les effets de la 
routine suivante. 


Notes : AF, DE et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 16AH (464, 664 et 6128). 


on 
Étiquette : CRTEVDL. 


Description : Suspend un événement du type CRT (dont l'adresse 
est fournie dans HL). Cette suspension dure jusqu’à l’appel de 
la routine précédente. 


Notes : AF, DE et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 170 H (464, 664 et 6128). 


Étiquette : FEVIN. 


Description : Comme CRTEVIN (BCD7H), mais pour les événements 
rapides (1/300 de seconde). 


Notes : AF, DE et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 176H (464, 664 et 6128). 


Étiquette : FASTEV. 


Description : Comme CRTEV (BCDAH), pour les événements 
rapides. 


Notes : AF, DE et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 17DH (464, 664 et 6128). 


Étiquette : FEVEDEL. 


Description : Comme CRTEVDL (BCDDH}), pour les événements 
rapides. 
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Notes : AF, DE et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 183H (464, 664 et 6128). 


Étiquette : EVENT. 

Description : Initialisation ou redémarrage d’un événement normal 
(1/50 de seconde). En entrée, HL contient l’adresse du bloc, E 
la valeur initiale du compteur, D la classe de l'événement et BC 
l'adresse de la routine de traitement. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1B3H (464, 664 et 6128). 


Étiquette : DELEVENT. 

Description : Comme CRTEVDL (BCDDH}), avec les événements 
normaux (voir la précédente). En sortie, la retenue est mise si l’évé- 
nement n'avait pas été déjà suspendu et DE contient la valeur 
du compteur. 

Notes : AF, DE et HL sont modifiés. 

Instruction : RST 8. 

Adresses d'exécution : 1C5H (464, 664 et 6128). 


Étiquette : EVENTIN. 

Description : Comme CRTEVIN, mais pour un événement 
quelconque. 

Instruction : RST 8. 

Adresses d'exécution : 1D2H (464, 664 et 6128). 


Étiquette : EVBLOC. 


Description : Détruit un bloc d'événement dont l’adresse est four- 
nie dans HL. 


Notes : Le groupe 1 est modifié. 
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Instruction : RST 8. 
Adresses d'exécution : 1E2H (464, 664 et 6128). 


Étiquette : EVRESET. 

Description : Vidange des queues d'événement. 

Notes : AF et HL sont modifiés. 

Instruction : RST 8. 

Adresses d'exécution : 228H (464), 227H (664 et 6128). 


Étiquette : CLREV. 


Description : Enlève l'événement dont l'adresse de bloc est four- 
nie dans HL de la queue d'événement. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 285H (464), 284H (664 et 6128). 


BCFBH 
Étiquette : NEXTEV. 


Description : Passe à l'événement suivant, sauf s’il a une priorité 
inférieure à la priorité courante ; dans ce dernier cas, la retenue 
n'est pas mise, et de même s’il n’y a pas d'événement ensuite 
(dans ce cas le flag z est mis). Par contre, si tout va bien la rete- 
nue est mise. 


Notes : AF, DE et HL sont modifiés. 
Instruction : RST 8. 
Adresses d'exécution : 256H (464), 255H (664 et 6128). 


BCFEH 
Étiquette : EVENT!. 


Description : Exécution immédiate d’un événement dont l'adresse 
de bloc est fournie dans HL. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 21AH (464), 219H (664 et 6128). 
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Étiquette : DONEEV. 


Description : Tient prêt un événement (dont l'adresse de bloc est 
fournie dans HL) pour qu'il suive un événement dont le code 
de priorité est fourni dans A. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 277H (464), 276H (664 et 6128). 


Étiquette : DIEVENT. 

Description : Suspension de tous les événements normaux. 
Notes : HL est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 295H (464), 294H (664 et 6128). 


BDO7H 


Étiquette : ENEVENT. 

Description : Autorise de nouveau les événements normaux. 
Notes : HL est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 29BH (464), 29AH (664 et 6128). 


Étiquette : DISEV. 

Description : Suspend l'événement dont l'adresse de bloc est fournie 
dans HL. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 28EH (464), 28DH (664 et 6128). 


BDODH 


Étiquette : TIMEZ. 
Description : Donne dans DEHL (sur 32 bits) le temps écoulé au 
chronomètre, en 1/300 de seconde. 
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Instruction : RST 8. 
Adresses d'exécution : 99H (464, 664 et 6128). 


Étiquette : TIME. 


Description : Positionne le chronomètre à la valeur fournie dans 
DEHL. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : A3H (464, 664 et 6128). 


M LES VECTEURS DES PÉRIPHÉRIQUES 


Les vecteurs suivants gèrent directement les périphériques et sont 
de ce fait d’un intérêt très relatif. Retenons toutefois les vecteurs de 
gestion de l'imprimante, dont l’utilité est évidente. 


Étiquette : BOOT. 


Description : Charge un programme et l’exécute directement. En 
entrée, HL doit contenir l’adresse de la routine de chargement 
du programme. Cette routine est exécutée, puis le programme 
est lancé par START (routine suivante). 


Notes : Le SP est replacé à COO0H ; diverses réinitialisations sont 
effectuées avant de lancer le programme. 

Instruction : RST 8. 

Adresses d’exécution : 5DCH (464), 5D7H (664), 5EDH (6128). 


Étiquette : START. 


Description : Exécute un programme dont l'adresse est donnée dans 
HL, et l’octet de sélection des ROM dans C. 


Notes : Comme la précédente. 
Instruction : RST 8. 
Adresses d'exécution : 60BH (464), 606H (664), 61CH (6128). 
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BD19H 
Étiquette : FRAME. 


Description : Attend le début du balayage vertical du CRT (contrô- 
leur vidéo), réalisant ainsi la fonction BASIC FRAME. 


Notes : Pour les possesseurs de 464, voir page 8.5 du manuel, en 
bas ; pour les autres, voir explication de FRAME. 


Instruction : RST 8. 
Adresses d'exécution : 7BAH (464), 7A4H (664), 7B4H (6128). 


BD1CH 
Étiquette : MMODE. 
Description : Positionne le mode écran sur la valeur fournie dans 


A. Diffère de MODE (BCOEH) par l'absence totale de réinitialisa- 
tion. L'écran n’est même pas effacé. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 776H (464), 766H (664), 776H (6128). 


Étiquette : MOFFSET. 

Description : Fixe à partir de A l'adresse de départ de l'écran et 
l’offset à la valeur contenue dans HL comme décrit pour OFF- 
SET et SSTART (BCO5H et BCO8H). La différence vient de ce que 
ces modifications ne sont pas enregistrées dans les indicateurs 
de RAM. Le système d'exploitation agit donc comme s’il n’y avait 
pas eu changement, d’où des effets parfois curieux. 

Notes : AF est modifié. 

Instruction : RST 8. 


Adresses d'exécution : 7C6H (464), 7BOH (664), 7COH (6128). 


Étiquette : NOIR. 


Description : Positionne toutes les couleurs, y compris celles du 
bord à la valeur de (DE), donnant l'impression que l'écran s’est 
effacé. 


Notes : AF est modifié. 
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Instruction : RST 8. 
Adresses d'exécution : 786H (464), 776H (664), 786H (6128). 


Étiquette : COLORS. 


Description : Positionne les couleurs aux valeurs contenues dans 
les octets pointés par DE. La couleur du bord vient en premier. 

Notes : AF est modifié. 

Instruction : RST 8. 


Adresses d'exécution : 799H (464), 77CH (664), 78CH (6128). 


Étiquette : PRRESET. 

Description : Reset de la sortie parallèle (vers l'imprimante). 
Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 7E6H (464), 7DOH (664), 7EOH (6128). 


Étiquette : PRCAR. 


Description : Fait imprimer le caractère fourni dans À, sauf si l’im- 
primante est hors tension ou trop longuement occupée (dans ce 
cas, la retenue n’est pas mise en sortie). 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 7F2H (464), 80BH (664), 81BH (6128). 


BD2EH 
Étiquette : BUSY£?. 


Description : Vérifie si l'imprimante est opérationnelle. Dans ce cas, 
la retenue est mise en sortie, sinon c’est que l'imprimante est occu- 
pée ou hors tension. 


Notes : La retenue est seule modifiée. 
Instruction : RST 8. 
Adresses d'exécution : 81BH (464), 848H (664), 858H (6128). 
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Étiquette : SENDCAR. 

Description : Envoie un caractère à l'imprimante sans attendre 
qu’elle devienne opérationnelle, si elle ne l’était pas. La retenue 
est mise en sortie. 

Notes : AF est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 807H (464), 834H (664), 844H (6128). 


Étiquette : OUTPSG. 

Description : Envoie l’octet fourni dans € dans le registre du PSG 
(générateur de sons programmable) dont le numéro est fourni 
dans A, évitant ainsi de complexes manipulations d’entrées/sorties. 

Notes : AF et BC sont modifiés. 

Instruction : RST 8. 

Adresses d'exécution : 826H (464), 853H (664), 863H (6128). 


& L'INITIALISATION DES VECTEURS ET L'ÉDITEUR DE TEXTE 


Les deux vecteurs suivants sont particuliers et n’ont pu trouver place 
ni dans le paragraphe précédent, ni dans le suivant. EDIT possède 
des adresses différentes suivant les Amstrad, car il est destiné au BASIC 
(mais vous pouvez tout à fait l'utiliser). Voyez à ce sujet le début du 
paragraphe ‘‘Vecteurs de l’arithmétique à virgule flottante’. 


Étiquette : JPREST. 


Description : Réinitialise tous les vecteurs (mais pas les indirections). 
Sur 664 et 6128, réalise au passage la fonction BASIC TAPE. 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 888H (464), 8BBH (664), 8BDH (6128). 
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GIBAZNEE (464), KL (664), LATE (6128) 


Étiquette : EDIT. 


Description : Édite la phrase dont l’adresse est fournie dans HL. 
Cette phrase doit contenir moins de 255 caractères et se finir par 
un zéro. Il s’agit de l’éditeur puissant utilisé par le BASIC pour 
ses lignes et ses commandes, avec usage des touches (CLR), (DEL), 
(COPY), … 

Notes : Tous les registres sont conservés, sauf A qui contient le carac- 
tère de sortie (0DH = (RETURN) ou FCH = (ESC)) et F, car la der- 
nière instruction est : CP FCH. 


Instruction : RST 8. 
Adresses d'exécution : 2A98H (464), 2CO02H (664 et 6128). 


M LES VECTEURS SPÉCIFIQUES DES CPC 664 ET 6128 


Les vecteurs de ce paragraphe n'existent pas sur CPC 464. La plu- 
part correspondent aux nouvelles fonctions BASIC du 664. Le der- 
nier d’entre eux ne se trouve que sur le 6128 : il permet l'accès aux 
blocs de RAM supplémentaires de cet appareil, ce qui en fait évidem- 
ment un vecteur précieux. 


Étiquette : CAPS. 


Description : Fixe par HL l’état de (CAPS LOCK) et de (CTRL) (CAPS 
LOCK). Ces états sont ceux indiqués pour la sortie de CAPS? 
(BB21H). 


Instruction : RST 8. 
Adresses d'exécution : 1D3CH (664 et 6128). 


Étiquette : CCLEAR. 


Description : Vide le buffer clavier, réalisant ainsi la fonction BASIC 
CLEAR INPUT. 


Notes : AF est modifié. 
Instruction : RST 8. 
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Adresses d'exécution : 1BFEH (664 et 6128). 


Étiquette : CRFG?. 


Description : Donne dans A la valeur des flags VDU/curseur. Les 
flags curseur sont donnés par le bit O (texte : voir TCRON (BB7BH)) 
et le bit 1 (système : voir SYSCRON (BB81H)). Le flag VDU est 
le bit 7. Pour ces trois flags, 0 signifie autorisé et 1 interdit. 


Instruction : RST 8. 
Adresses d'exécution : 145CH (664), 1460H (6128). 


Étiquette : MASKO. 

Description : Réinitialisation des paramètres de tracé de ligne : le 
mode forçage est positionné, les paramètres de masque sont repla- 
cés à leurs valeurs par défaut (voir les trois routines suivantes). 

Notes : AF et HL sont modifiés. 

Instruction : RST 8. 

Adresses d'exécution : 15E8H (664), 15ECH (6128). 


Étiquette : MASK3. 

Description : Fixe à la valeur fournie dans A le troisième paramè- 
tre de masque pour le tracé de ligne. Ce paramètre, comme le 
deuxième (voir la routine suivante), règle le tracé du premier point, 
mais sans provoquer de décalage dans la ligne à tracer : si A dif- 
fère de zéro, ce premier point est forcé à l'allumage. 

Notes : La valeur par défaut de ce paramètre est O. 

Instruction : RST 8. 

Adresses d'exécution : 19D1H (664), 19D5H (6128). 


Étiquette : MASK2. 


Description : Fixe le deuxième paramètre de la fonction BASIC 
MASK à la valeur fournie dans A. On se référera au manuel pour 
plus de détails. 
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Notes : La valeur par défaut de ce paramètre est FFH. 
Instruction : RST 8. 
Adresses d'exécution : 17ACH (664), 17BOH (6128). 


Étiquette : MASK1. 


Description : Comme la précédente, mais avec le premier 
paramètre. 


Notes : La valeur par défaut de ce paramètre est FFH. 
Instruction : RST 8. 
Adresses d'exécution : 17A8H (664), 17ACH (6128). 


Étiquette : PHYSPOS. 


Description : Donne la position physique réelle d’un point dont 
les coordonnées ont été fournies en entrée dans DE et HL, en 
fonction du mode courant. Cette position physique est consti- 
tuée du numéro de ligne (0 à 199) donnée dans DE et du numéro 
de colonne (0 à 639) dans HL. 


Notes : AF est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 1626H (664), 162AH (6128). 


Étiquette : FILL. 


Description : Remplit une surface avec l'encre dont le numéro est 
fourni dans À, réalisant ainsi la fonction BASIC FILL. En entrée, 
HL contient l'adresse d’une table de stock libre, et DE sa lon- 
gueur (plus elle est grande, plus le remplissage est précis). 


Notes : Le groupe 1 est modifié. 
Instruction : RST 8. 
Adresses d'exécution : 19D5H (664), 19D9H (6128). 


BD55H 
Étiquette : SCREEN. 
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Description : Modifie l'enregistrement en mémoire de l'offset écran, 
fixé à la valeur fournie dans HL, et de la base écran, fixée à la 
valeur fournie dans À, mais sans sortir ces valeurs sur les péri- 
phériques. Pour une véritable modification, il faut donc appeler 
ensuite MOFFSET (BD1FH). 

Notes : À et HL sont standardisés pour permettre l’appel de MOFF- 
SET juste après. 

Instruction : RST 8. 

Adresses d'exécution : B41H (664), B45H (6128). 


Étiquette : PRCARTAB. 

Description : Modification de la table des caractères d'imprimante. 
Cette table est positionnée aux valeurs fournies dans HL et suite, 
de la manière suivante : en premier, vient sur 1 octet le nombre 
de caractères de la table (maximum : 20), puis des paires d'oc- 
tets composées du code à transformer lors de l'impression, puis 
du code à mettre à sa place. La valeur par défaut de cette table 
se trouve aux adresses 7E7H à 7FBH (664), 7F7H à 80BH (6128). 

Notes : Le groupe 1 est modifié. 

Instruction : RST 8. 

Adresses d'exécution : 7FCH (664), 80CH (6128). 


(6128) 

Étiquette : PERMUIT. 

Description : Permutation de blocs de RAM médiane inférieure 
(adresses 4000H à 7FFFH), numérotés 0, 4, 5, 6 ou 7, en fonc- 
tion de la valeur de À modulo 8 en entrée : 0, 4, 5, 6 où 
7 = connecter le bloc de RAM correspondant ; 1=l'écran O est 
recopié dans le 7, qui est placé dans la mémoire MI, ainsi que 
les sorties vers l'écran (plus rien ne s'affiche sur l'écran visible 
qui reste sur la RAM supérieure) ; 2=idem, mais dans la mémoire 
MS (d’où une destruction des vecteurs et des paramètres !) ; 
3=comme 1, mais l'écran 7 n’est pas modifié. 

Notes : En sortie, À contient le numéro de l’ancien bloc présent 
en RAM MI. Pour plus de détails, voir Chapitre 3. 

Instruction : RST 8. 

Adresse d'exécution : 397H (6128). 
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M LES VECTEURS DE L’ARITHMÉTIQUE À VIRGULE FLOTTANTE 


Voici maintenant la liste des vecteurs arithmétiques des Amstrad. 
Ces vecteurs sont en principe destinés au BASIC (quoiqu'’ils puissent 
être très utiles au programmeur d’assembleur), c’est pourquoi ils se 
trouvent à des adresses variables suivant les CPC. De plus, parmi les 
vecteurs de l’arithmétique à virgule flottante donnés dans ce para- 
graphe, deux n'existent plus sur les CPC 664 et 6128. 

Rappelons que les entiers sont codés sur 2 octets, et les réels (nom- 
bres à virgule flottante), sur 5 octets. Dans la suite, on désigne par 
FAC (accumulateur à virgule flottante) l’opérande des vecteurs, qui 
est toujours le réel pointé par HL. C’est toujours dans le FAC que 
les résultats des opérations sont stockés. On ne l’a donc pas repré- 
cisé chaque fois. 

Signalons une différence importante entre ces routines et les pré- 
cédentes : pour des raisons de commodité, IX, et éventuellement |Y 
sont modifiés de façon à pointer sur le ou les réels opérandes. 

Enfin un rappel évident, mais qui peut s'avérer justifié : lors des 
calculs, c'est la ROM qui est branchée aux adresses inférieures. Pas 
question, par conséquent, d'y placer le FAC ou vos opérandes. Par 
contre, vous pouvez profiter des réels stockés en ROM. 


(464), EX (661), (6128) 


Étiquette : COPY. 

Description : Copie le réel (c'est-à-dire 5 octets) pointé par DE dans 
le FAC. Sur 464, donne en plus dans A le type de la variable 
(2=entier, 3=chaîne, 5= réel). 

Notes : La retenue est mise en sortie. 

Instruction : RST 28. 

Adresses d’exécution : 2E18H (464), 2F91H (664 et 6128). 


ET 462, EST (662), EE (6:29) 


Étiquette : IR. 


Description : Convertit l’entier fourni dans HL en un réel placé dans 
le FAC, dont le signe est fourni par le signe de A (bit 7 mis=réel 
négatif). En entrée, l'adresse du FAC doit être fournie dans DE. 


Notes : DE est modifié. 
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Instruction : RST 28. 
Adresses d'exécution : 2E29H (464), 2F9FH (664 et 6128). 


LISTE DES REELS DE LA ROM ET DE LEURS ADRESSES 


Constantes Adresses (464) Adresses (664 et 6128) 
10 2F53H 30F5H 
100 2F58H 30FAH 
1000 2F5DH 30FFH 
10000 2F62H 3104H 
105 2F67H 3109H 
106 2F6CH 310EH 
107 2F71H 3113H 
108 2F76H 3118H 
109 2F7BH 311DH 
1010 2F80H 3122H 
101! 2F85H 3127H 
1072 2F8AH 312CH 
1013 2F8FH 3131H 
1/SQR(2) 3081H 3220H 
LOG(2) 3086H 3225H 
LOG,,(2) 308BH 322AH 
1/2 30CCH 326BH 
1/L0G(2) 30FBH 329DH 
MI * 3100H 32A2H 
M2 * 3105H 32A7H 
PI 31A9H 2F73H 
P1/2 3205H 339CH 
1/PI 321DH 33B4H 
1/180 3222H 33B9H 
P1/180 3227H 33BEH 
180/PI 322CH 33C3H 
1 3332H 2F82H 


* MT et M2 sont les logarithmes respectifs du plus grand nombre autorisé (1.7014 E38= 2127) 
et du plus petit (2.938735 E-39=2-128) ; ils valent donc 88.0296919 et —88.7228391. 
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OUI 462, ET (662, ES (6:29) 


Étiquette : IR. 

Description : Convertit un entier codé sur 4 octets pointés en entrée 
par HL (de l’octet de poids le plus faible à celui de poids le plus 
fort) en un réel dont le signe est en outre celui de A en entrée 
(comme pour la précédente). Ce réel (compris entre -2* et 
2*-1) est stocké à l’adresse pointée par HL, à la place de 
l’entier. 

Notes : AF et IX sont modifiés : IX pointe sur le FAC en sortie. 

Instruction : RST 28. 

Adresses d'exécution : 2E55H (464), 2FC8H (664 et 6128). 


(464), EDS (662), (6128) 


Étiquette : RI. 


Description : Convertit le FAC en un entier placé en sortie dans 
HL. Pour la valeur de AF en sortie, voir SOM (BD7CH, etc.). 


Notes : Comme la précédente. 
Instruction : RST 28. 
Adresses d'exécution : 2E66H (464), 2FD9H (664 et 6128). 


GIBZÈLEE (464), LAMIME (664), KAMIBLE (6128) 


Étiquette : RI2. 


Description : Comme la précédente, mais le résultat est dans les 
deux premiers octets du FAC initial. 


Notes : Comme I4R (BD43H, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 2E8EH (464), 3001H (664 et 6128). 


EX 462, EI (662), EE 6125) 


Étiquette : FIX. 

Description : Exécute sur le FAC la fonction BASIC FIX. Le résultat 
est un entier sur 4 octets mis dans le FAC si la retenue est mise. 
Si elle ne l’est pas, c’est que le réel initial était trop grand (supé- 
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rieur à 2%). D'autre part, le signe du résultat est donné par celui 
de B (bit 7 mis=négatif). 
Notes : Comme I4R (BD43H, etc.), et BC est aussi modifié. 
Instruction : RST 28. 
Adresses d'exécution : 2EA1H (464), 3014H (664 et 6128). 


(464), (664), (6128) 


Étiquette : INT. 

Description : Comme la précédente, avec INT. 

Notes : Comme la précédente. 

Instruction : RST 28. 

Adresses d'exécution : 2EACH (464), 3055H (664 et 6128). 


(464), (664), (6128) 


Étiquette : aucune. 


Description : Cette routine est utilisée par le BASIC pour l’impres- 
sion des nombres ; en elle-même, elle ne présente pas d'intérêt. 


Instruction : RST 28. 
Adresses d'exécution : 2EB6H (464), 305FH (664 et 6128). 


(464), (664), ED 6123) 


Étiquette : M10. 


Description : Multiplie le FAC par 10 à la puissance A. En sortie, 
AF est positionné comme après une somme (voir la routine 
suivante). 


Notes : BC, DE et IX sont modifiés : IX pointe sur le FAC. 
Instruction : RST 28. 
Adresses d'exécution : 2F1DH (464), 30C6H (664 et 6128). 


(464), (664), (6128) 
Étiquette : SOM. 
Description : Ajoute au FAC le réel pointé par DE. AF est positionné 
en fonction du résultat : si la retenue est mise, tout est OK, et 
À contient le quatrième octet du résultat (dont le bit 7 donne le 
signe). Si la retenue n’est pas mise, une erreur s’est produite selon 
la valeur de A : si A=FFH il y a eu dépassement par le haut (nom- 
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bre trop grand). Dans ce cas le FAC contient 1,70141 E38 (nom- 
bre maximal autorisé). D’autres erreurs sont possibles pour d’au- 
tres opérations (voir celles-ci). 


Notes : BC, DE, IX et IY sont modifiés : IX pointe sur le FAC et IY 
sur la valeur d'entrée de DE (deuxième opérande). Notez que 
si le résultat est inférieur à 2 '#,il est considéré comme nul. 


Instruction : RST 28. 
Adresses d'exécution : 333FH (464), 34A2H (664 et 6128). 


GIBATAISR (464) 


Étiquette : DIFF1. 


Description : Comme la précédente, mais en soustrayant le réel 
pointé par DE du FAC. 


Notes : Comme la précédente. 
Instruction : RST 28. 
Adresses d'exécution : 3337H (464). 


GIBALLE (464), EDARE (664), LABEL (6128) 


Étiquette : DIFF2. 


Description : Comme SOM (BD58H, etc.), mais en soustrayant le 
FAC du réel pointé par DE. 


Notes : Comme SOM (BD58H, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 333BH (464), 349EH (664 et 6128). 


GIBIER (464), KALYLEE (664), LABEL (6128) 


Étiquette : PROD. 

Description : Comme SOM (BD58H, etc.), mais en faisant le produit. 
Notes : Comme SOM (BD58H, etc.). 

Instruction : RST 28. 

Adresses d'exécution : 3315H (464), 3577H (664 et 6128). 


GIZ (464), KAEALEE (664), KABUASE (6128) 


Étiquette : DIV. 


Description : Comme SOM (BD58H, etc.), mais en divisant le FAC 
par le réel pointé par DE. Autre état d’erreur possible : si la rete- 
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nue n'est pas mise et que A=0, alors il y a eu tentative de divi- 
sion par zéro. Dans ce cas le FAC n’est pas modifié. 


Notes : Comme SOM (BD58H, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 349EH (464), 3604H (664 et 6128). 


BYE (464) 


Étiquette : M2. 


Description : Multiplie le FAC par 2 à la puissance A. En sortie, 
comme pour M10 (BD79H, etc.). 


Notes : Comme RI (BD6AH, etc.). BC est modifié en cas de 
dépassement. 


Instruction : RST 28. 
Adresses d'exécution : 3578H (464). 


EDEN 464, EE (662, EE 6:25) 


Étiquette : RCOMP. 

Description : Compare le réel pointé par DE avec le FAC. S'il lui 
est égal, A vaut zéro et F est positionné en conséquence ; s’il lui 
est supérieur, À vaut FFH et la retenue est mise ; enfin s’il lui est 
inférieur, À vaut 1 et la retenue n’est pas mise. 


Notes : IX et IY sont modifiés, comme pour SOM (BD58H, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 359AH (464), 36DFH (664 et 6128). 


EXO 462, EI (66:, EDIT (125) 


Étiquette : RCHSGN. 

Description : Change le signe du FAC. En sortie, A contient la nou- 
velle mantisse. 

Notes : Comme RI (BD6AH, etc.). 

Instruction : RST 28. 

Adresses d'exécution : 35F8H (464), 3731H (664 et 6128). 


(464), (664), EXT (6125) 


Étiquette : SGN. 
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Description : Teste le signe du FAC. En sortie, À vaut O si le FAC 
est nul, 1 s'il est positif, FFH sinon. F est positionné en 
conséquence. 


Notes : IX pointe sur le FAC en sortie. 
Instruction : RST 28. 
Adresses d'exécution : 35E8H (464), 3727H (664 et 6128). 


CEE 462), ER (662), EX (6:25) 


Étiquette : DEG. 

Description : Change le mode trigonométrique : si À vaut O en 
entrée, on passe en radians, sinon en degrés. 

Notes : Tous les registres sont conservés. 

Instruction : RST 28. 

Adresses d'exécution : 31AEH (464), 3345H (664 et 6128). 


EU 462), EI (662, EM (6 125) 


Étiquette : PI. 

Description : Place le réel PI (3,141592...) dans le FAC. 
Notes : AF et DE sont modifiés. 

Instruction : RST 28. 

Adresses d'exécution : 31A3H (464), 2F73H (664 et 6128). 


GIDYSILE (464), KABLZNE (664), KABSIBIR (6128) 
Étiquette : SQR. 
Description : Calcule la racine carrée du FAC, réalisant ainsi la fonc- 


tion BASIC SQR. En sortie, AF est positionné comme pour la 
suivante. 


Notes : AF, BC, DE, IX et IY sont modifiés : IX pointe sur le FAC 
en sortie. 


Instruction : RST 28. 
Adresses d'exécution : 310AH (464), 32ACH (664 et 6128). 


(464), (664), (6128) 
Étiquette : PUISS. 


Description : Comme SOM (BD7CH, etc.), mais en réalisant la fonc- 
tion puissance (le FAC est porté à la puissance du réel pointé par 
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DE). En sortie, AF est comme pour SOM, avec les erreurs sup- 
plémentaires possibles si la retenue n'est pas mise : A=0 signifie 
division par zéro, A=1 signifie opération impossible (FAC néga- 
tif et exposant non entier). 

Notes : Comme SOM (BD7CH, etc.). 

Instruction : RST 28. 

Adresses d'exécution : 310DH (464), 32AFH (664 et 6128). 


GIDARSR (464), KABZAURE (664), KABZKIER (6128) 


Étiquette : LOG. 

Description : Comme SQR (BD9DH , etc.), mais avec le logarithme 
naturel (LOG). États d'erreurs comme ci-dessus ; avec en plus, 
si A=FEH, logarithme d’un nombre négatif. 


Notes : Comme SQR (BD9DH, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 3014H (464), 31B6H (664 et 6128). 


(464), (664), (6128) 


Étiquette : LOG10. 


Description : Comme la précédente, mais avec le logarithme déci- 
mal (LOG10). 


Notes : Comme SQR (BD9DH, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 300FH (464), 31B1H (664 et 6128). 


EDEN 464, EMI (662, EX 6:25 


Étiquette : EXP. 


Description : Comme SQR (BD9DH, etc.), mais avec l’exponen- 
tielle (EXP). 


Notes : Comme SQR (BD9DH, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 3090H (464), 322FH (664 et 6128). 


GIBEISE (464), KABZUIEE (664), KABXUE (6128) 


Étiquette : SIN. 
Description : Comme SQR (BD9DH , etc.), mais avec le sinus (SIN). 
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Notes : Comme SQR (BD9DH, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 31BCH (464), 3353H (664 et 6128). 


(464), (664), EE (6123) 


Étiquette : COS. 

Description : Comme SQR (BD9DH, etc.), mais avec le cosinus 
(COS). 

Notes : Comme SQR (BD9DH, etc.). 

Instruction : RST 28. 

Adresses d'exécution : 31B2H (464), 3349H (664 et 6128). 


GIBIER (464), KABZAREE (664), LALZLE (6128) 


Étiquette : TAN. 


Description : Comme SQR (BD9DH, etc.), mais avec la tangente 
(TAN). État d'erreur (retenue non mise) où A =0 équivaut à divi- 
sion par zéro. 


Notes : Comme SQR (BD9DH, etc.). 
Instruction : RST 28. 
Adresses d'exécution : 3231H (464), 33C8H (664 et 6128). 


GIBLALER (464), KABLZLEE (664), KL (6128) 


Étiquette : ATN. 

Description : Comme SQR (BD9DH , etc.), mais avec l’arc-tangente 
(ATN). 

Notes : Comme SQR (BD9DH, etc.). 

Instruction : RST 28. 

Adresses d'exécution : 3241H (464), 33D8H (664 et 6128). 


ED 464, CD (664, EEE (6125) 


Étiquette : I5R. 

Description : Transforme un nombre entier de 5 octets en un réel 
placé dans le FAC. Les 4 octets de poids fort doivent se trouver 
dans le FAC en entrée, rangés par poids croissants. Le cinquième 
octet est nul, mais la routine additionne à l’entier un nombre cal- 
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culé à partir des deux bits supérieurs de C : 00= ajoute 0 ; O1 et 
10=ajoute 80H ; 11=ajoute 100H. En outre, le réel créé aura 
le signe de A (bit 7 mis=réel négatif). 

Notes : Comme I4R (BD43H, etc.). 

Instruction : RST 28. 

Adresses d'exécution : 2E5EH (464), 2FD1H (664 et 6128). 


EE 462, EE (664, EI (6125) 


Étiquette : RNDINIT. 

Description : Initialisation du générateur de nombres aléatoires. 
Notes : HL est modifié. 

Instruction : RST 28. 

Adresses d'exécution : 2F94H (464), 3136H (664 et 6128). 


(464), (664), EE (6123) 


Étiquette : RANDOM. 


Description : Prend le FAC comme générateur des nombres aléa- 
toires, réalisant ainsi la fonction BASIC RANDOMIZE. Le FAC ne 
doit pas être nul en entrée. 


Notes : En sortie, IX pointe sur le FAC qui n’est pas modifié, et le 
groupe 1 est modifié. 


Instruction : RST 28. 
Adresses d'exécution : 2FA1H (464), 3143H (664 et 6128). 


GIBLIDLER (464), KDE (604), LADA (6128) 


Étiquette : RND. 


Description : Génère un nombre aléatoire et le place dans le FAC, 
réalisant la fonction BASIC RND. 


Notes : En sortie, IX pointe sur le FAC, et AF, BC et DE sont modi- 
fiés. La retenue est mise. 


Instruction : RST 28. 
Adresses d'exécution : 2FB7H (464), 3159H (664 et 6128). 


(464), (664), (6128) 


Étiquettes : RNDO. 
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Description : Donne le dernier nombre généré par la précédente, 
réalisant la fonction BASIC RND(O). 


Notes : Comme la précédente. 
Instruction : RST 28. 
Adresses d'exécution : 2FE6H (464), 3188H (664 et 6128). 


M LES VECTEURS DE L’ARITHMÉTIQUE ENTIÈRE 


Les vecteurs suivants n'existent que sur le 464, car sur le 664 et 
le 6128 ils ont été retirés de la ROM inférieure pour des raisons de 
place mémoire. Toutefois, le listing du programme ENTIERS vous per- 
mettra de disposer également de ces vecteurs qui peuvent être très 
commodes, à l'exception des deux premiers, de peu d'intérêt. 


GIBZKISE (464) 


Étiquette : aucune. 


Description : Place dans B la valeur de H (bit 7 donne le signe), 
0 dans E, 2 dans C, et remplace HL par sa valeur absolue. 


Notes : AF est modifié. 
Instruction : RST 28. 
Adresses d'exécution : 3708H (464). 


WBZNUER (464) 


Étiquette : aucune. 

Description : Place O0 dans B et E, et 2 dans C. 
Instruction : RST 28. 

Adresses d'exécution : 370EH (464). 


(464) (programme ENTIERS) 


Étiquette : aucune. 
Description : Routine utilisée par les suivantes : positionne B en 
fonction du signe de HL. 


Notes : AF est modifié. 
Instruction : RST 28. 
Adresses d’exécution : 3715H (464). 
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ENG 461) (programme ENTIERS) 


Étiquette : ISOM 

Description : Additionne HL et DE et positionne AF en fonction du 
résultat : si OK, la retenue est mise et À conservé, sinon (débor- 
dement) la retenue est nulle et À vaut FFH. Le flag z est mis si 
le résultat est nul. 

Instruction : RST 28. 

Adresses d'exécution : 3728H (464). 


EME 464 (programmes ENTIERS) 


Étiquette : : IDIFF1. 


Description : Soustrait DE de HL et positionne AF comme la 
précédente. 


Instruction : RST 28. 
Adresses d'exécution : 3731H (464). 


(464) (programme ENTIERS) 


Étiquette : IDIFF2. 

Description : Comme la précédente, mais HL vaut DE -HL en sortie. 
Notes : DE vaut en sortie la valeur initiale de HL. 

Instruction : RST 28. 

Adresses d'exécution : 3730H (464). 


(464) (programme ENTIERS) 


Étiquette : IPROD. 

Description : Multiplie DE et HL en tenant compte de leurs signes. 
Le résultat est placé dans HL et AF positionné comme pour ISOM 
(BDACH). 

Notes : À est de toute façon modifié. 

Instruction : RST 28. 

Adresses d'exécution : 3739H (464). 


(464) (programme ENTIERS) 


Étiquette : DIVEUC. 
Description : Division euclidienne de HL par DE, en tenant compte 
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des signes : en sortie, HL contient le quotient et DE le reste de 
la division. 

Notes : AF est modifié. 

Instruction : RST 28. 

Adresses d'exécution : 377AH (464). 


ELLE 464 (programme ENTIERS) 


Étiquette : MOD. 

Description : Place dans HL la valeur de HL modulo DE, réalisant 
la fonction BASIC MOD. 

Notes : AF, BC et DE sont modifiés. 

Instruction : RST 28. 

Adresses d'exécution : 3781H (464). 


(464) (programme ENTIERS) 


Étiquette : IPRODABS. 
Description : Comme IPROD (BDB5H), mais sans tenir compte des 
signes éventuels de DE et HL. La retenue est nulle en cas de 


dépassement. 
Notes : AF est modifié. 
Instruction : RST 28. 
Adresses d'exécution : 3750H (464). 


(464) (programme ENTIERS) 


Étiquette : IDIVABS. 

Description : Comme DIVEUC (BDB8H), avec les mêmes réserves 
que pour la précédente. 

Notes : AF est modifié. 

Instruction : RST 28. 

Adresses d’exécution : 378CH (464). 


(464) (programme ENTIERS) 


Étiquette : ICOMP. 

Description : Compare DE et HL. Si DE>HL, A vaut FFH; si 
DE < HL, A vaut 1 ; si DE=HL, A vaut 0. Dans tous les cas, F est 
positionné en conséquence. 
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Instruction : RST 28. 
Adresses d'exécution : 37E9H (464). 


GIDI@ALE (464) EXTARR (programme ENTIERS) 


Étiquette : ICHSGN. 

Description : Change HL en son opposé. La retenue est mise si OK. 
Notes : À est modifié. Son bit 7 donne le nouveau signe de HL. 
Instruction : RST 28. 

Adresses d'exécution : 37D4H (464). 


EUNI 464 EX (programme ENTIERS) 


Étiquette : ISGN. 
Description : Teste le signe de HL et positionne AF en conséquence 
(voir ICOMP (BDC4H), en remplaçant DE par O). 


Instruction : RST 28. 
Adresse d'exécution : 37E0H (464). 


(programme ENTIERS) 


Étiquette : ABS. 
Description : Remplace HL par sa valeur absolue. 
Notes : AF est modifié. 
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Annexe A 
Les instructions du Z80 


Voici à présent la liste alphabétique des instructions du Z80. Elles 
sont classées par genre. On a précisé pour chacune leur durée (en 
temps machine d’un quart de millionième de seconde), leur longueur 
(en octets) et les flags modifiés. Les codes machine par contre ne sont 
pas précisés (classement par genre). Vous les trouverez chez R. Zaks, 
entre autres. 

Les notations sont les suivantes : 


b désigne un numéro de bit, soit un nombre de 0 à 7. Pour les 
restarts, on a mis RST b, mais la syntaxe varie suivant les 
Assembleurs. 

cond désigne une condition, soit M, P, PO, PE, Z, NZ, C ou NC. 
conds désigne une condition spéciale soit Z, NZ, C ou NC. 

n désigne une valeur sur un octet, comprise entre O0 et 255. 

k désigne une valeur sur un octet, comprise entre —128 et 127. 
nn désigne une valeur sur deux octets. 

r désigne un registre 8 bits parmi À, B, C, D, E, H, L. 

dd désigne un double registre, soit BC, DE ou HL. 

IX désigne indifféremment IX ou lY. 


Un prime a été mis quand le même symbole intervient deux fois, 
comme dans LD r,r’. 

Lorsque deux durées ont été données, c’est que l'instruction dépend 
soit d’une condition (dans ce cas la première durée est celle où la 
condition n’est pas remplie), soit d’une instruction répétitive (dans 
ce cas la première durée est celle qui correspond à un arrêt du 
bouclage). 

Pour les flags, on a utilisé les notations suivantes : 


O flag mis à zéro. 
1 flag mis à un. 
X flag modifié. 

— flag conservé. 
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Instruction 


ADC A,n 
ADC A,r 
ADC A, (HL) 
ADC A, (IX+n) 
ADC HL,dd 
ADC HL,SP 
ADD A,n 
ADD Ar 
ADD A,(HL) 
ADD A,(IX+n) 
ADD HL,dd 
ADD HL,SP 
ADD IX,BC 
ADD IX,DE 
ADD IX,IX 
ADD IX,SP 
AND n 
AND r 
AND (HL) 
AND (IX+n) 
BIT b,r 

BIT b,(HL) 
BIT b,(IX+n) 
CALL nn 
CALL cond,nn 
CCF 

CPn 

CPr 

CP (HL) 

CP (IX+n) 
CPD 

CPDR 

CPI 

CPIR 

CPL 

DAA 

DEC r 

DEC (HL) 
DEC (IX+n) 
DEC dd 
DEC IX 

DEC SP 


Durée 


NB NN 


16/21 
16 
16/21 


11 
23 


10 
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Longueur 


NW 2-2 = = À — S SO BND NS = = NN ND NN = — D = — NN NN NN D = — N 


OOOOX X X X X XX XX XX XX XX XX XX XX XX XX XX N 


Flags 


X X XX XX X XX > XX XX XX N 


XX X x x x x | 


XKXXKXXX X x x | 


XX x x | 


| 


X XX X XX X XX XX XX XX 2 mn 


XX X x x x »x | 


XX X X x x x x | | 


| XX x x x | 


p{v 


X X X XX XX XX XX XX x x 


XX X x x x x | 


| 


XKXKXKXX XX X x | 


XX x x | 


| | 


Instruction Durée Longueur 

Z s  p/{v 
DI 4 1 RE 
DIJNZ k 8/13 2 — — — — 
El 4 1 — — — — 
EX AF,AF' 4 1 échangés... 
EX DE,HL 4 1 _ — — — 
EXX 4 1 _ — — — 
EX (SP),HL 19 1 =, = 
EX (SP),IX 23 2 _— — — — 
HALT 4 1 _ — — — 
IM 0,1 ou 2 8 2 — — — — 
IN r,(C) 12 2 — XX X  _X 
IN A,(n) 11 2 _— — — — 
INC r 4 1 —  _X X _X 
INC (HL) 11 1 — XX  _X 
INC (IX+n) 23 2 — X  _X X 
INC dd 6 1 _— — — — 
INC IX 10 2  — — — 
INC SP 6 1 _— — — — 
IND 16 2 —  _X X X 
INDR 16/21 2 _ 1 X X 
INI 16 2 — X X _X 
INIR 16/21 2 _— 1 X X 
JP nn 10 3 — — — — 
JP cond,nn 10/10 3 — — — — 
JP (HL) 4 1 _ — — — 
JP (IX) 8 2 _ — — — 
Rk 12 2 _ — — — 
JR conds,k 7/12 2 _ — — — 
LD r,r’ 4 1 — — — — 
LD (HL),r 7 1 _ — — — 
LD (IX+n),r 19 3 — — — — 
LD r,n 7 2 _ — — — 
LD (HL),n 10 2 _— — — — 
LD (IX+n),n' 19 4 _ = — — 
LD r,(HD 7 1 _— — — — 
LD r,(IX+n) 19 3 =. et 
LD A, 9 2 —  _X X _X 
LD I,A 9 2 — — — — 
LD AR 9 2 — XX  _X 
LD R,A 9 2 — — — — 
LD A,(dd) 7 1 _ — — — 
LD (dd),A 7 1 _ — — — 
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Instruction 


LD (nn),A 
LD A,(nn) 
LD dd,nn 
LD IX,nn 
LD SP,nn 
LD SP,HL 
LD SP,IX 
LD dd,(nn) 
LD (nn),dd 
LD IX, (nn) 
LD (nn),IX 
LD SP, (nn) 
LD (nn),SP 
LDD 
LDDR 

LDI 

LDIR 

NEG 

NOP 
ŒRn 
ORr 

OR (HL) 
OR (IX+n) 
OUT (C},r 
OUT (n),A 
OUTD 
OTDR 
OUTI 
OTDI 
POP AF 
POP dd 
POP IX 
PUSH AF 
PUSH dd 
PUSH IX 
RES b,r 
RES b,(HL) 
RES b,(IX+n) 
RET 

RET cond 
RETI 

RETN 


Durée 


13 
13 
10 
14 
10 
6 
10 
20,HL:16 
20,HL:16 
20 
20 
20 


16/21 
16 
16/21 
10 
10 
14 
11 
11 
14 


15 
23 
10 
5/11 
14 
14 
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Longueur 


DD = mn NN 2 -N NN NN NY = = ND = NN ND ND ND D BB BB À LE & NN — © HR © W LU 


X = x x | | X XX x | x | | 


X XX x x | | x x x x | x | 


xXoxox | | 


XX x x | 


Instruction 


RLr 

RL (HL) 

RL (IX+n) 
RLA 

RLC r 

RLC (HL) 
RLC (IX+n) 
RLCA 

RLD 

RRr 

RR (HL) 
RR (IX+n) 
RRA 

RRC r 

RRC (HL) 
RRC (IX+n) 
RRCA 

RRD 

RST b 

SBC A,n 
SBC Ar 
SBC A,(HL) 
SBC A,(IX+n) 
SBC HL,dd 
SBC HL,SP 
SCF 

SET b,r 
SET b,(HL) 
SET b,(IX+n) 
SLA r 

SLA (HL) 
SLA (IX+n) 
SRA r 

SRA (HL) 
SRA (IX+n) 
SRL r 

SRL (HL) 
SRL (IX+n) 
SUB n 
SUB r 

SUB (HL) 
SUB (IX+n) 


Durée 


15 
23 


15 


23 


18 


15 


23 


15 


23 


18 
11 


19 
15 
15 


15 


23 


15 
23 


15 
23 


15 
23 


NN 
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Longueur 


DS mm ND END END NEED ND EDR NN = = ND — END — NN NN = E ND ND — EE ND ND 


XX X X XX XX XX x 


| XX x x x x x x | 


XX XX x x x | 


XX X OX XX XX x x x x x x x | 


N 
a 
LU 
9Q 
2] 


[XX x x x x | x | x x x | x x x x | x x x | x x x 


XX X x x x x x x x x x x | 


n 


X XX x x x | x | x x x | x x x x | x x x | x x x 


XX X X XX x x x x x x x x | 


plv 


[XX x x x x | x | x x x | x x x x | x x x | x x »x 


XX XX X X x x x x x x x x | 


; : Flags 
Instruction Durée Longueur 5 


Z s  p/v 
XOR n 7 2 O X X x 
XOR r 4 1 0 X X X 
XOR (HL) 7 1 0 X X X 
XOR (IX+n) 19 3 0 X X X 
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Annexe B 
Les rotations et décalages 


La liste des rotations et décalages, accompagnée de schémas, est 
donnée ci-dessous. On a reprécisé pour chacun les flags modifiés, 
la longueur en octets et la durée (bien que ces renseignements soient 
aussi précisés par l’annexe précédente). 

On notera surtout des différences peu évidentes à priori, entre les 
instructions type RR À et RRA. Dans les deux cas, la rotation effec- 
tuée sur l’accumulateur est la même. Mais la première est plus longue 
(2 octets contre 1), deux fois plus lente et de plus modifie tous les 
flags, alors que RRA ne modifie que la retenue. La même remarque 
s'applique aux autres rotations binaires (RLA, RLCA, RRCA). 

Les flags modifiés ne comprennent pas h et n, sans intérêt. De plus, 
r désigne ici un registre 8 bits au sens étendu, soit : À, B, C, D, E, 
H, L, (HL), (X+n), (I +n) (ce dernier n’a pas été distingué du précé- 
dent pour le calcul des longueurs et durées). 


ROTATIONS 


EM 


Rotation à gauche du registre, en passant par la retenue. 


Les bits sont décalés, bit O vers bit 1, etc. Le bit 7 passe dans la 
retenue et la retenue passe dans le bit O. 


Flags modifiés : Tous. 
Longueur : 2, sauf (IX+n) : 4. 
Durée : 8, sauf (HL) : 15 et (IX+n) : 23. 


a ©0000 


RLA 
Comme la précédente, mais sur l’accumulateur A. 


Flags modifiés : Aucun, sauf la retenue. 
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Longueur : 1. 
Durée : 4. 


ET 


Rotation à gauche du registre, sans passer par la retenue. 


Les bits sont décalés, bit O vers bit 1, etc., et bit 7 dans le bit O. 
Le bit 7 est en outre aussi copié dans la retenue. 


Flags modifiés : Tous. 
Longueur : 2, sauf (IX+n) : 4. 
Durée : 8, sauf (HL) : 15 et (IX+n) : 23. 


fc  [C HO PPÉ nn nn 


RLCA 
Comme la précédente, mais sur l’accumulateur A. 
Flags modifiés : Aucun, sauf la retenue. 


Longueur : 1. 
Durée : 4. 


ER 


Rotation à droite du registre, en passant par la retenue. 
Les bits sont décalés, bit 7 vers bit 6, etc. Le bit O passe dans la 
retenue et la retenue passe dans le bit 7. 


Flags modifiés : Tous. 
Longueur : 2, sauf (IX+n) : 4. 
Durée : 8, sauf (HL) : 15 et (IX+n) : 23. 


DOS OS S OSEO TEST 
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RR 


RRA 
Comme la précédente, mais sur l’accumulateur A. 


Flags modifiés : Aucun, sauf la retenue. 
Longueur : 1. 
Durée : 4. 


EX 


Rotation à droite du registre, sans passer par la retenue. 

Les bits sont décalés, bit 7 vers bit 6, etc., et bit O dans le bit 7. 
Le bit O est en outre aussi copié dans la retenue. 

Flags modifiés : Tous. 

Longueur : 2, sauf (IX+n) : 4. 

Durée : 8, sauf (HL) : 15 et (IX+n) : 23. 


DO SOON OSSI SD est 


RRC 


RRCA 

Comme la précédente, mais sur l’accumulateur A. 
Flags modifiés : Aucun, sauf la retenue. 
Longueur : 1. 
Durée : 4. 


DÉCALAGES 


Décalage arithmétique à gauche du registre (multiplication par 2). 
Les bits sont recopiés, bit O dans bit 1, etc. Le bit 7 est copié dans 
la retenue et le bit O est annulé. 
Flags modifiés : Tous. 
Longueur : 2, sauf (IX+n) : 4. 
Durée : 8, sauf (HL) : 15 et (IX+n) : 23. 
Note : S'obtient plus simplement sur À par ADD AA. 
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sa [cts ot 0 


Décalage arithmétique à droite du registre. 
Les bits sont recopiés, bit 7 dans bit 6, etc. Le bit O est copié dans 
la retenue et le bit 7 est inchangé. 


Flags modifiés : Tous. 
Longueur : 2, sauf (IX+n) : 4. 
Durée : 8, sauf (HL) : 15 et (IX+n) : 23. 


SRA Poe 


Décalage logique à droite du registre (division par 2). 
Les bits sont recopiés, bit 7 dans bit 6, etc. Le bit O est copié dans 
la retenue et le bit 7 est annulé. 


Flags modifiés : Tous. 
Longueur : 2, sauf (IX+n) : 4. 
Durée : 8, sauf (HL) : 15 et (IX+n) : 23. 


sa 0174161520 


ROTATIONS DÉCIMALES 


Les deux rotations suivantes s'effectuent par quartets (groupes de 
4 bits) sur A et l’octet pointé par HL, soit (HL), exclusivement. 


Rotation décimale à gauche. 
Rotation sur le quartet inférieur de A et ceux de (HL), dans cet ordre : 


- 232 - 


quartet inférieur de A vers quartet inférieur de (HL) vers quartet supé- 
rieur de (HL) (ce dernier repassant dans le quartet inférieur de A). 


Flags modifiés : Tous, sauf la retenue. 
Longueur : 2 (codes ED 6F). 


Durée : 18. 
ro  [7[6]5]4] CET Gr GENE 
A (HL) 


Rotation décimale à droite. 

Rotation sur le quartet inférieur de A et ceux de (HL), dans cet ordre : 
quartet inférieur de A vers quartet supérieur de (HL) vers quartet infé- 
rieur de (HL) (ce dernier repassant dans le quartet inférieur de A). 

Flags modifiés : Tous, sauf la retenue. 

Longueur : 2 (codes ED 67). 


Durée : 18. 
Aro  [7/[6]5/4] SEE Ce Get 


A (HL) 
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Annexe C 
Les adresses intéressantes 


Voici un recueil d'adresses qui peuvent servir. Il s'agit essentielle- 
ment de paramètres du système ou du BASIC que vous pouvez modi- 
fier ou lire, quelquefois de points d'entrée (mais ceux des routines 
système, listées au Chapitre 8, n’ont pas été redonnés). 

En général ces adresses ne sont pas les mêmes pour les trois CPC. 
De ce fait, il arrive que deux adresses soient données. La première 
est celle des CPC 464, la seconde des CPC 664 et 6128. 

Lorsque la mention 464, 664 où 6128 figure entre parenthèses, c’est 
que l'adresse ne concerne que le ou les CPC correspondants. 

Les adresses sont données en hexadécimal, par ordre croissant (pour 
le 464). 

Un D entre parenthèses signifie : version avec lecteur de disquette 
seulement. 


Paramètres du lecteur de disquette 
A700 (D) Lecteur courant (0=A, 1 =B). 


A701 (D) Numéro d'utilisateur (USER) courant. 

A702 (D) Lecteur actif. 

A708 (D) Indicateur pour fichiers en lecture : FFH=pas de 
fichier ouvert, sinon numéro du lecteur. 

A72C (D) Indicateur pour fichiers en écriture : FFH = pas de 


fichier ouvert, sinon numéro du lecteur. 


A751 (D) Adresse du tampon de lecture (2 octets). 

A755 (D) En-tête du fichier en lecture (64 octets). 

A79B (D) Adresse du tampon d'écriture (2 octets). 

A79F (D) En-tête du fichier en écriture (64 octets). 

A89F (D) Numéro du premier secteur de chaque piste (41H, 
C1H ou 1 suivant le format de la disquette). 

A8A0 (D) Nombre de secteurs par piste (9 ou 8 suivant le 
format). 


A8A3 (D) Octet de remplissage des pistes (E5H en principe). 
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Paramètres BASIC 


ADAA/AD90 
ADAB/AD91 


AE7B/AËSE 
AE81/AE64 
AE83/AE66 
AE85/AE68 
AE87/AE6A 
AE89/AE6C 
BO8C/B06F 
BOC1/B09F 
BOC2/BOAO 


Numéro d'erreur. 


Adresse de la dernière instruction exécutée (2 
octets). 


Adresse du haut de mémoire (HIMEM) (2 octets). 
Adresse du début du programme (2 octets). 
Adresse de la fin du programme (2 octets) 
Adresse du début de la table des variables (2 octets). 
Adresse du début des variables en matrices (2 octets). 
Adresse de fin des variables en matrices (2 octets). 
Adresse de la pile BASIC (2 octets). 

Type de la variable contenue dans l’accumulateur. 
Accumulateur pour variables (5 octets). 


Les paramètres système 


B1C8/B7C3 
B1C9/B7C4 
B1CB/B7C5 
B1D7/B7D2 
B1DA/B7D6 
B20C/B6B5 
B20D/B6B6 


B285/B726 


B285/B726 
B287/B728 
B288/B729 
B28C/B72D 
B72D 


B28D 


B28E 
B28F/B72F 
B290/B730 


Mode d'écran courant. 

Offset écran. 

Adresse de l'écran (2 octets). 

Durées des encres clignotantes (2 octets). 
Couleurs courantes (y compris du bord) (32 octets). 
Numéro de la fenêtre courante. 


Streams des huit fenêtres (par stream : 14 octets sur 
464, 13 octets sur 664 et 6128) (112/104 octets). 


Stream courant (14/13 octets), soit : 


Position du curseur : ligne, colonne (2 octets). 
Flag fenêtre : O=écran entier. 

Coins de la fenêtre (haut puis bas) (4 octets). 
Compteur de défilement (ROLL COUNT). 

(664 et 6128) Bit 7 =flag VDU (0 = débranché) ; bits 
0 et 1 comme ci-dessous. 

(464) Flags curseur. Bit O : curseur utilisateur, bit 
1: curseur système (0= affichage interdit). 

(464) Flag VDU (0 =débranché). 

Masque de la couleur d'écriture. 

Masque de la couleur du fond. 
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B291/BB731 


B292/B732 
B293/B733 


B294/B734 
B295/B735 
B296/B736 


B2C3/B763 
B328/B693 
B32C/B697 
B330/B69B 


B338/B6A3 
B339/B6A4 
B6B2 


B4E7 
B631 


B4E8/B632 
B4E9/B633 
B4EA/B634 
B451/B68B 


B543/B68D 


B545/B68F 
B547/B691 


B60A/B2A6 


Mode d'affichage du fond (0 =forçage, 1 = ou exclu- 
sif, 2=et, 3=ou). 
Usage inconnu ? 
Flag écriture des caractères graphiques (0 = interdit). 


Flag non nul s’il y a des caractères redéfinis. 
Numéro du premier caractère redéfini. 

Adresse de la table des matrices de caractères redé- 
finissables (2 octets). 

Table des sauts aux caractères de contrôle (96 
octets). 

Coordonnées de l’origine graphique (x puis y) (4 
octets). 


Coordonnées courantes du curseur graphique (4 
octets). 


Limites de la fenêtre graphique (abscisses, puis 
ordonnées) (8 octets). 

Masque de l'encre graphique d'écriture. 

Masque de l'encre graphique du fond. 


(664 et 6128) Paramètres de MASK pour les tracés 
de lignes (3 octets). 


(464) État de la touche (SHIFT) (FFH si enfoncée). 
(664 et 6128) État de verrouillage de (CONTROL) 
(CAPS LOCK) (FFH si elle est verrouillée). 

État de verrouillage de (CAPS LOCK) (idem). 
Vitesse de répétition des touches. 

Délai avant la première répétition des touches. 
Adresse de la table des touches sans (SHIFT) ni 
(CONTROL) (2 octets). 

Adresse de la table des touches avec (SHIFT) seul 
(2 octets). 

Adresse de la table des touches avec (CONTROL) 
(2 octets). 

Adresse de la table des touches avec répétition (2 
octets). 

15 enveloppes sonores de volume (ENV) de 16 octets 
chacune (240 octets). 
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B6FA/B396 
B800/B118 
B802/B11A 
B803/B11B 
B805/B11D 


B84A/B162 


B8CD/B1E5 
B8D1/B1E9 


C002/C006 
C064/C058 
CA94/CB55 


FFAA 


FFB8 


FFBE 


FFC4 


FFCF 


FFDA 


FFE7 


15 enveloppes sonores de ton (ENV) (240 octets). 
Flag messages cassette (0 = autorisés). 

Flag fichier ouvert sur cassette (0= pas de fichier). 
Adresse du tampon pour le catalogue (2 octets). 


Adresse du tampon pour la lecture sur cassette (2 
octets). 


Adresse du tampon pour l'écriture sur cassette (2 
octets). 


Octet de synchronisation. 
Vitesse d'écriture sur cassette. 


Adresses de la ROM BASIC 


Initialisation. Envoi de ‘BASIC 1.0’’ (ou 1.1) et pas- 
sage au mode Ready. 

Entrée du mode Ready. 

Entrée des messages d'erreur. Le numéro de l'erreur 
doit être fourni dans E sur 464, et dans A sur 664 
et 6128. 

(464) Compare l’accumulateur à la table pointée par 
HL, jusqu’à ce qu'il y ait égalité (retenue mise) ou 
que (HL)=0 (retenue nulle) ; HL et F sont seuls 
modifiés. 

(464) Tester si HL=DE (flag z positionné et A 
modifié). 

(464) Tester si HL=BC (flag z positionné et A 
modifié). 


(464) Soustraction : DE=DE-HL. F et DE seuls 
modifiés. 
(464) Soustraction : HL=HL-DE. F et HL seuls 
modifiés. 
(464) Soustraction : BC=HL-DE. F et BC seuls 
modifiés. 
(464) Soustraction : HL=HL-BC. F et HL seuls 
modifiés. 
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Bibliographie 


Voici une bibliographie classée par ordre de préférence. Il va sans 
dire que les commentaires n'engagent que l’auteur. 


La programmation du Z80 par Rodnay Zaks (éditions Sybex). 
Pour tout savoir sur le Z80, ses instructions, sa vitesse, ses péri- 
phériques, etc., et même sur des structures de listes ! Un gros 
pavé qui devient indispensable à partir d’un certain niveau de 
programmation. 


Le livre du lecteur de disquette Amstrad par Bruckman et Schieb (édi- 
tions Micro-application). 
Tout, absolument tout, et même plus sur le lecteur de disquette. 
Indispensable si les routines système ne vous suffisent plus. Un 
peu brouillon parfois, mais un excellent listing du DOS. 


Clefs pour Amstrad par Daniel Martin (éditions du PSI). 
Beaucoup d'erreurs, d'oublis ou d’inexactitudes, même dans la 
seconde version (pour 664 et 6128). Mais le format du livre et 
une très bonne conception logique en font un bon mémoran- 
dum à garder sous la main. 


Programmation en assembleur par Georges Fagot-Barraly (éditions 
Sybex). 
Un petit livre pour débuter en assembleur. Des exemples sim- 
ples, une présentation claire. 


La bible de l’Amstrad CPC par Bruckman, Lothar, English et Gerits 
(éditions Micro-application). 
Pour avoir le listing des ROM du 464, avec quelques commen- 
taires (moins que dans le livre du lecteur de disquette). Un gros 
pavé nullement essentiel, pour les curieux. Est doté d’une suite 
pour 664 et 6128, dans le même ton. 
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Le livre de l’Amstrad CPC 464 - CPC 664 par Daniel Martin et Philippe 
Jadoul (éditions BCM, diffusé par PSI). 
Un livre bien fait, mais dont je n’ai pas encore compris l’utilité. 
Copie un peu développée des Clefs pour Amstrad. On aurait pré- 
féré que ces dernières soient revues et corrigées. 


— 239 - 


POUR UN CATALOGUE COMPLET 
DE NOS PUBLICATIONS 


FRANCE 

6-8, Impasse du Curé 
75881 PARIS CEDEX 18 
Tél. : (1) 42.03.95.95 
Télex : 211801 


U.S.A. 

2344 Sixth Street 
Berkeley, CA 94710 
Tel. : (415) 848.8233 
Telex : 336311 


ALLEMAGNE 
Vogelsanger. WEG 111 
4000 Düsseldorf 30 
Postfach N° 30.09.61 
Tel. : (0211) 61 80 2-0 
Telex : 08588163 


Er 


Paris + Berkeley + Düsseldorf 


Achevé d'imprimer le 12 mai 1986 sur les presses de l'imprimerie «La Source d'Or» 
63200 Marsat - Dépôt légal : 2° trimestre 1986 - Imprimeur n° 2024 


Cet ouvrage est destiné à tous ceux qui ont 
déjà acquis les bases de la programmation en 
assembleur ou en langage machine. 

Il présente des méthodes de programmation 
en assembleur Z80 accompagnées de 
nombreux exemples de programmes 
d'application fonctionnant sur 

les Amstrad CPC 464, 664, et 6128. 


L'AUTEUR 


THoOMAS LACHAND ROBERT est né en 
décembre 1966. De formation essentiellement 
scientifique, il prépare l'école Polytechnique. 


0193 0586 148 F 





9 782736 101 | 





SIREN MEN 'ANER El Der rl 'Rel"2 HN a) 


D... 


Den crise 


dVEG dMOUr Dar : 


PAM=== 


a 








= 





TA 
Le: 


https://acpc.me/ 





